Brauche Hilfe mit Messagebox

[DeddyH]

Meinst Du so etwas?

Delphi-Quellcode:

procedure TFormDings.ButtonWuppdiClick(Sender: TObject);
begin
  if DeinEdit.Text = '' then
    begin 
      MessageBox(0, 'Eingabe erwartet', 'Fehler', MB_OK or MB_ICONERROR);
      DeinEdit.SetFocus;
    end
  else
    ClickCode;
end;