Daran kanns doch eigentlich nicht liegen. Ich glaub kaum, dass ein TEDit auf ein TEdit zu casten ein Invalid Typecast hervorbringt. Ich glaub eher, dass Sender kein TEdit ist in dem Fall. Probier doch mal:
Delphi-Quellcode:
procedure plausi (sender:tedit);
begin
if Sender is TEdit then
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;
Außerdem muss Plausi eine Methode sein. Also zum Beispiel procedure TForm1.Plausi