erstmal danke für die schnellen antworten!
ich hab nun das ganze so geändert:
Delphi-Quellcode:
procedure plausi(sender:tobject);
begin
with sender as tedit do
begin
if (sender as tedit).text = '' then
begin
MessageDlg ('Please fill all required fields!',mtwarning,[mbok],0);
(sender as tedit).SetFocus;
end;
end;
end;
aufgerufen wird das ganze mit plausi(sender); in einem onclick-ereignis eines buttons.
jedoch bekomm ich wieder diesen fehler: invalid class typecast
mein procedure kopf sieht folgendermaßen aus:
Delphi-Quellcode:
var
ProductDefinitionForm: TProductDefinitionForm;
procedure plausi(sender:tobject); <<<<<< hier hab ich den aufgeführt