Button - OnClick Ereignis über Editfeld auslösen

[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 ?

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

[Lannes]

Hallo,

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

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