Tmainform.AddtoFavourites1Click(Sender: TObject); var TempStr: string;
begin //Test for valid edit mode, if not, close PopUp
if not (ActiveControl is TCustomEdit) then
begin
PostMessage(Handle, WM_LBUTTONDOWN, MK_LBUTTON, 0);
PostMessage(Handle, WM_LBUTTONUP, MK_LBUTTON, 0);
exit;
end;
>> Activecontrol is not TCustomEdit here
with Activecontrol as TCustomEdit do
begin
if Length(SelText) > 0 then
begin
TempStr := ParseMailAdds(SelText);
Leo
Software Developer
CFL
[EMAIL PROTECTED]
http://www.cfl.co.nz
_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi
