Hat zwar nix mit dem Problem zu tun, aber mach mal noch ein begin-end rein:
Delphi-Quellcode:
begin
Handle := Handle_suchen_Edit ;
if Handle <> 0
then
begin // <-- hier
SendMEssage(
Handle, VK_Clear,0,0);
SendMessage(
Handle, WM_CHAR, Ord(55), 0);
SendMEssage(
Handle, VK_Return,0,0);
end;
// <-- und hier
end;
MFG
Patti