{"id":91,"date":"2007-05-12T13:52:27","date_gmt":"2007-05-12T11:52:27","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/putting-controls-on-a-page-at-runtime\/"},"modified":"2007-05-12T13:52:28","modified_gmt":"2007-05-12T11:52:28","slug":"putting-controls-on-a-page-at-runtime","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/putting-controls-on-a-page-at-runtime\/","title":{"rendered":"Putting controls on a page at runtime"},"content":{"rendered":"

Q:
\nHi,
\nI need to create a component at runtime and ‘drop’ it
\non a certain page of a multipage TNotebook – how
\ncan this be done since the Tnotebook doesn’t expose
\nthe pages – just their ‘names’.
\nFor various reasons I do not want to a TPageControl.
\n<\/em>
\nA:
\nWell, i havn’t found an ‘easy’ way but this:<\/p>\n

Use this function to get the TPage by it’s Caption:<\/p>\n

[code lang=”delphi”]function GetPageByCaption(NoteBook:TNoteBook; Cap:string):TPage;
\nvar
\n i : integer;
\nbegin
\n result := nil;<\/p>\n

for i := 0 to NoteBook.ControlCount-1 do
\n begin
\n if NoteBook.Controls[i] is TPage then
\n begin
\n if UpperCase(TPage(NoteBook.Controls[i]).Caption) = UpperCase(Cap)
\nthen
\n begin
\n result := TPage(NoteBook.Controls[i]);
\n break;
\n end;
\n end;
\n end;
\nend;
\n[\/code]
\nThen you could do something like this:<\/p>\n

[code lang=”delphi”]var
\n ThePage : TPage;
\nbegin
\n ThePage := GetPageByCaption(NoteBook1, ‘Page1’);
\n if ThePage <> nil then
\n begin
\n MyButton := TButton.Create(self);
\n MyButton.Parent := ThePage;
\n MyButton.Top := 10;
\n MyButton.Left := 20;
\n end;
\nend;
\n[\/code]
\nhave fun!
\nBoris Nienke<\/p>\n

Edit: …Much easier way is this:
\n[code lang=”delphi”]begin
\n MyButton := TButton.Create(self);
\n with MyButton do
\n begin
\n Parent := Notebook1.Pages.Objects[0] As TWinControl;
\n Top := 10;
\n Left := 20;
\n end;
\nend;[\/code]<\/p>\n

[tags]Delphi, Components, Notebook[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

Q: Hi, I need to create a component at runtime and ‘drop’ it on a certain page of a multipage TNotebook – how…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[90,75,92],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1t","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/91"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=91"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/91\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=91"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=91"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=91"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}