Button - OnClick Ereignis über Editfeld auslösen

[Major1337]

Hey,

ist es möglich das Event OnClick eines Buttons mit einem Editfeld auszuführen.
Also sobald im Editfeld ein bestimmter Text erscheint soll sofort der Button ausgelöst werden.

Delphi-Quellcode:

if edit1.Text = 'Test' then
begin

// OnClick Button auslösen 

end;

[Wolfgang Mix]

Versuch 'mal

Zitat:

if edit1.Text = 'Test' then Button1.Clicked :=true;

ungetested

Gruß

Wolfgang

[Major1337]

[Error] Unit1.pas(38): Undeclared identifier: 'Clicked' ;-P

[haentschman]

schon eher...

if edit1.Text = 'Test' then Button1.Click;

[Major1337]

nein, klappt nicht -,-

[DeddyH]

Das hätte aber eigentlich funktionieren müssen. Wie sieht es damit aus?

Delphi-Quellcode:

if Edit1.Text = 'Test' then
  Button1Click(Button1);

[haentschman]

Zitat:

nein, klappt nicht -,-

...ich liebe diese Fehlermeldungen

vieleicht...
if edit1.Text = 'Test' then FormX.Button1.Click;

[Major1337]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

if Edit1.Text = 'Test' then
  Button1Click(Button1);
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
close; 
end;

Kann es aber sein das Edit1.Text = Test nicht immer überprüft wird?

[DeddyH]

Im OnCreate kannst Du das Formular nicht schließen. Versuch es mal im OnShow.

[Major1337]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var test : string;

begin

test := Edit1.Text;

if test = 'Test' then
ShowMessage ('Test');
end;
end.

das mit close ist egal, aber auch wenn ich versuche in ShowMessage auszugeben, funktioniert es nicht -.-