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.

markieren

Delphi-Quellcode:

if edit1.Text = 'Test' then
begin

// OnClick Button auslösen

end;

Versuch 'mal

Zitat:

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

ungetested

Gruß

Wolfgang

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

schon eher...

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

nein, klappt nicht -,-

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

markieren

Delphi-Quellcode:

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

Zitat:

nein, klappt nicht -,-

...ich liebe diese Fehlermeldungen

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

zusammenfalten · markieren

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?

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

zusammenfalten · markieren

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 -.-