TLabel ansprechen aber wie?

[City Light]

Hallo

Ich hab folgendes Problem!

Ich hab eine Procedure geschrieben wo bei ich auch ein Label ansprechen möchte! die TLabel liegt dabei auf TabSheet1 und ich bekommen sie einfach nicht angesprochen Form1.Label1.Caption usw. geht einfach nich?!
Hat jemand rat :?:

Gruß Tino

[Luckie]

Mein Label liegt auch auf dem Tabsheet1:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Label1.Caption := 'Test';
end;

Geht.

[City Light]

Morgen Luckie

das meinte ich nicht, Die TLabel soll in eine Selbst geschriebene Procedure angesprochen werden..

Delphi-Quellcode:

procedure MeinePro.(const bla, binemaja: String);
begin
Form1.Label1.Caption := 'balala
....

[Luckie]

Und warum geht das nicht? Fehlermeldung?

Was ist das für ein komischer Punkt vor der Klammer für die Parameter? Rein theoretisch müßte es so gehen mit Form1.Label1.Caption := '...';

Oder mach die Prozedur zu einer Methode von TForm1, dann kannst du dir das Form1 jedes mal sparen im Code.

Ich weiß nicht, was du da machst. Wieder liegt mein Label auf Tabsheet1 und folgender Code tut es wunderbar:

Delphi-Quellcode:

procedure SetTextLabel1(s: String);
begin
  Form1.Label1.Caption := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetTextLabel1('hallo');
end;