eine elegante Lösung wehre auch:
Delphi-Quellcode:
if <Editfeld>.Text = '
'
then begin// ist der text gleich '' (nichts)
MessageDlg('
<Text>', mtWarning,[mbOK], 0);
// dann Warnung
<Editfeld>.SetFocus;
// setzt den Fokus wieder auf das Feld, es kann direkt beschrieben werden
end else begin
<Anweisung>
// wenn etwas im Text steht dann mache (gewünschte Anweisung)
end;
Wenn der Text des Editfeldes nicht beschrieben ist, wird eine Fehlermeldung kommen mit deinem Text!