hi leute ich hab da mal was geschrieben um ne plausibilitätsprüfung für alle editfelder auf meinem form zu bekommen. dabei soll diese procedure in einem onclick-ereignis aufgerufen werden und sämtliche edit-felder überprüfen. ist ein edit feld leer soll es eine messagebox ausgeben und auf das feld fokussieren... allerdings bekomm ich einen fehler wenn ich versuche dieses procedure folgendermaßen auszuführen: plausi (sender:tedit) error:invalid class typecast ... kann mir da einer weiterhelfen?
Delphi-Quellcode:
procedure plausi (sender:tedit);
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;
[edit=Luckie]Delphi-Tags gesetzt. Mfg, Luckie[/edit]