Hur man implementerar OnCreate-händelsen för ett Delphi TFrame-objekt

TFrame är en behållare för komponenter; det kan kapslas i former eller andra ramar.

En ram, som en form, är en behållare för andra komponenter. Ramar kan kapslas in i formulär eller andra ramar, och de kan sparas på komponentpaletten för enkel återanvändning.

Saknas OnCreate

När du börjar använda ramar kommer du att märka att det inte finns något onCreate event du kan använda för att initialisera dina ramar.

Kort sagt, anledningen till att en ram inte har en OnCreate-händelse är att det inte finns någon bra tid att skjuta upp evenemanget.

Men av åsidosätta metoden Skapa Du kan härma OnCreate-evenemanget. När allt kommer omkring startas OnCreate for Forms i slutet av Create-konstruktören - så att åsidosätta Create for Frames är som att ha OnCreate-händelsen.

Här är källkoden för en enkel ram som visar en offentlig egendom och åsidosätter Skapa konstruktör:

 enhet WebNavigatorUnit;

gränssnitt

 användningar

   Windows, meddelanden, SysUtils, varianter, klasser,

   Grafik, kontroller, formulär, dialoger, StdCtrls;

 typ

   TWebNavigatorFrame = klass(TFrame)

    urlEdit: TEdit;
  

privat

     beslå: sträng;

    

procedur SetURL (const Värde: sträng);

  

offentlig

     konstruktör Skapa (AOwner: TComponent); åsidosätta;

  

publicerat

     fast egendom URL: sträng läst beslå skriva SetURL;

  

slutet;

genomförande$ R * .dfm

 konstruktör TWebNavigatorFrame.Create (AOwner: TComponent);

Börja

   ärvt Skapa (AOwner);

 

 // "OnCreate" -kod

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

 slutet;

procedur TWebNavigatorFrame.SetURL (const Värde: sträng);

Börja

   fURL: = värde;

   urlEdit.Text: = värde;

 slutet;

slutet.

"WebNavigatorFrame" fungerar som en webbplatsstarter som är värd för en redigering och en knappkontroll. Obs! Om du är ny inom ramar, se till att du läser följande två artiklar: utveckling av visuell komponent med ramar, byt ut tabbblad med ramar.