Hoe het OnCreate-evenement voor een Delphi TFrame-object te implementeren

TFrame is een container voor componenten; het kan worden genest in formulieren of andere frames.

Een frame is, net als een vorm, een container voor andere componenten. Frames kunnen worden genest in formulieren of andere frames en ze kunnen worden opgeslagen in het Component-palet voor eenvoudig hergebruik.

Ontbreekt OnCreate

Zodra u frames begint te gebruiken, merkt u dat er geen is OnCreate gebeurtenis die u kunt gebruiken om uw frames te initialiseren.

Kortom, de reden dat een frame geen OnCreate-gebeurtenis heeft, is dat er geen goed moment is om de gebeurtenis te starten.

Echter door de methode Maken overschrijven u kunt het OnCreate-evenement nabootsen. Immers, de OnCreate voor formulieren wordt ontslagen aan het einde van de Create-constructor - dus het vervangen van Create for Frames is als het hebben van de OnCreate-gebeurtenis.

Hier is de broncode van een eenvoudig frame dat een openbare eigenschap blootstelt en de constructor Create overschrijft:

 eenheid WebNavigatorUnit;

koppel

 toepassingen

   Windows, berichten, SysUtils, varianten, klassen,

   Graphics, besturingselementen, formulieren, dialoogvensters, StdCtrls;

 type

   TWebNavigatorFrame = klasse(TFrame)

    urlEdit: TEdit;
  

privaat

     furl: draad;

    

procedure setURL (const Waarde: draad);

  

openbaar

     bouwer Maken (AOwner: TComponent); override;

  

gepubliceerd

     eigendom URL: tekenreeks lezen opvouwen schrijven setURL;

  

einde;

implementatie$ R * .dfm

 bouwer TWebNavigatorFrame.Create (AOwner: TComponent);

beginnen

   geërfd Maken (AOwner);

 

 // "OnCreate" -code

   URL: = 'http://delphi.about.com';

 einde;

procedure TWebNavigatorFrame.SetURL (const Waarde: draad);

beginnen

   fURL: = waarde;

   urlEdit.Text: = Waarde;

 einde;

einde.

Het "WebNavigatorFrame" fungeert als een website-opstartprogramma met een bewerking en een knopbediening. Opmerking: als u nieuw bent in frames, lees dan de volgende twee artikelen: ontwikkeling van visuele componenten met behulp van frames, tabbladen vervangen door frames.