Een klein gaatje gevonden in de tijd om even het Cookbook second edition te lezen. Zo las ik in hoofdstuk 'Delphi Basics' een stukje over tabbed control en forms. Meestal maak ik gebruik van Pagecontrols om in runtime tabsheets aan te maken en daar aan een form te koppelen.
Tabbedcontrol maakt gebruik van TStrings, waarin objecten heel makkelijk zijn toe te voegen/selecteren/verwijderen.
Als ik in het boek lees, moet er in de embedded form deze procedure komen te staan:
Dit compileert niet. Show kan niet nog een keer worden aangeroepen, omdat de parameters niet overeenkomen. Ook krijg je volgens mij een circular reference, omdat de aanroep van show dezelfde code oproept. Ook kan je procedure show niet gebruiken, want dat is een eventhandler naar formshow en stuurt intern een aantal properties aan in de form om deze te kunnen tonen op het scherm.Delphi Code:
procedure TEmbeddableForm.Show(AParent: TPanel); begin Parent := AParent; BorderStyle := bsNone; BorderIcons := []; Align := alClient; Show; end;
Maar wat is de juiste procedure met het opstarten van een form? Ik heb zelf maar de procedure show veranderd in tabshow. Daarin roep ik dan event show op. Dat werkt prima.
Is er ook bij elk hoofstuk een stukje code, wat gedownload kan worden?
Bookmarks