Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Prozedur vor FormCreate (https://www.delphipraxis.net/170206-prozedur-vor-formcreate.html)

ManuKILLED 5. Sep 2012 11:43

Delphi-Version: 7

Prozedur vor FormCreate
 
Hey Leute,

ich habe leider noch nicht viel Erfahrung in der Entwicklung mit Delphi und wusste auch nicht wirklich wonach genau ich suchen sollte, daher verzeiht mir bitte, falls es so ein Thread bereits gibt.

Ich möchte eine Prozedur in der FormCreate von "Form1" und bei einigen onClick Eventen aufrufen, soweit ja kein Problem, aber in der Prozedur soll auf Elemente auf der "Form1" zugegriffen werden bzw. neue auf der Form1 erstellt werden.

Gibt es irgendeine Möglichkeit das zu realisieren?

Wenn ich jetzt einfach eine Prozedur vor der FormCreate Prozedur erstelle und z.b. ein Label mit
Delphi-Quellcode:
myLabel:= TLabel.Create( Form1 );
myLabel.Parent:= Form1;
Gibts leider ( logischer Weise ) nen Fehler, dass Form1 nicht definiert ist.

Beste Grüße
Manu

mkinzler 5. Sep 2012 11:51

AW: Prozedur vor FormCreate
 
Was meinst du mit vor drm FormCreate?

uligerhardt 5. Sep 2012 11:52

AW: Prozedur vor FormCreate
 
Nimm ganz allgemein in Methoden von TForm1 Self statt Form1, wann immer es geht. Dann löst sich auch dein konkretes Problem. ;)

Ich würde das etwa so machen:
Delphi-Quellcode:
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FMyLabel: TLabel;
    procedure CreateMyLabel;
  end;
Delphi-Quellcode:
procedure TForm1.CreateMyLabel;
begin
  FMyLabel := TLabel.Create(Self);
  FMyLabel.Name := 'MyLabel';
  FMyLabel.SetBounds(10, 10, 100, 100);
  FMyLabel.Parent := Self;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CreateMyLabel;
end;

ManuKILLED 5. Sep 2012 11:58

AW: Prozedur vor FormCreate
 
Zitat:

Zitat von uligerhardt (Beitrag 1181648)
Nimm ganz allgemein in Methoden von TForm1 Self statt Form1, wann immer es geht. Dann löst sich auch dein konkretes Problem. ;)

Viiielen Dank, klappt nun alles Bestens :))


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:01 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz