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

Delphi-Quellcode:

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

:hi:

[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 :roll:

vieleicht...

Delphi-Quellcode:

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

[DeddyH]

Delphi-Quellcode:

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

begin

test := Edit1.Text;

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

Was wird ausgegeben?

[Major1337]

direkt nach dem Programm-Start kommt die Message mit leerem Inhalt

[DeddyH]

Hast Du denn in der IDE dem Edit den richtigen Text zugewiesen?

[hoika]

Hallo,

mache es doch anders.

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender ...);
begin
  DoHandleButtonClick;
end;

procedure TForm1.DoHandleButtonClick;
begin
  // hier ist der Button-Klick Code
end;

procedure XXX
begin
  if Edit.text='bla' then DoHandleButtonClick
end;

Was soll denn eigentlich im DoHandleButtonClick passieren ?

Delphi-Quellcode:

test := Edit1.Text;

Hast du mal nen Breakpoint gesetzt ?


Heiko

[Major1337]

Der String für edit1 wird ja erst im laufe des programmes eingeben, nicht in der IDE.

[DeddyH]

Dann kann er im OnCreate ja noch nicht drinstehen :roll:

[Lannes]

Hallo,

dann gehört der Code in den OnChange-Event-Handler des Edit :wink:

Delphi-Quellcode:

procedure TForm1.CloseAction;
begin
  // was da auch immer passieren soll
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //irgendein Code
  CloseAction;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text = 'Test' then
    begin
    //irgendein anderer Code
    CloseAction;
    end;
end;

kannst aber auch

Delphi-Quellcode:

Button1Click(Self);

verwenden, solange in ButtonClick nicht mit Sender gearbeitet wird.

[Major1337]

Okay, vielen dank! ja.. in der Procedure OnCreate bringt es mir nicht viel ;-P

[fajac]

Dann solltest du das OnChange-Ereignis des Edit-Feldes nutzen

Delphi-Quellcode:

procedure TForm1.Edit1Change (Sender : TObject);
begin
  if Edit1.Text = 'Test' then
    Button1.Click;
end;

Ich persönlich würde es immer vorziehen, die ButtonClicks über eine ActionList zu verwalten. Wenn man das tut, dann geht auch

Delphi-Quellcode:

  ...
  Button1.Action.Execute;