function getParentForm(wc:TwinControl):Tform;
var
parentControl :TWinControl;
begin
try
parentControl := wc.Parent;
while not ((parentControl is Tform) or (parentControl =nil)) do
parentControl := parentControl.Parent;
result := parentControl as Tform;
except
on E:exception do
if wc<>nil then
raise exception.create('Failed to get parent form for
'+wc.name+'Name : '+e.message);
end;
end;
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Neven MacEwan
Sent: Thursday, February 03, 2000 5:04 PM
To: Multiple recipients of list delphi
Subject: Re: [DUG]: AutoExiting a Control
Thanks Aaron and Martin
Isn't a bitch that we have learn all the time!
Okay last simple question - from a control how to I find its form? so I can
get the Handle?
Regards
Neven
----- Original Message -----
From: Martin Ease <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Thursday, 3 February 2000 16:52
Subject: RE: [DUG]: AutoExiting a Control
> Neven
>
> To move to the next control you could also use something like:
>
> PostMessage(MyHandle, WM_NextDlgCtl, 0, 0);
>
> where MyHandle is the handle of the parent form.
>
> HTH
>
> Regards
> Martin
>
>
> -----Original Message-----
> From: Neven MacEwan [SMTP:[EMAIL PROTECTED]]
> Sent: Thursday, February 03, 2000 4:29 PM
> To: Multiple recipients of list delphi
> Subject: Re: [DUG]: AutoExiting a Control
>
> Aaron thanks for the tip - but to make it work I had to
>
> TnkmParent = class(TWinControl)
> protected
> procedure GotoNextControl(From: TWinControl);
> end;
>
> with
>
> procedure TnkmParent.GotoNextControl(From: TWinControl);
> var
> C: TWinControl;
> begin
> C := FindNextControl(From,True,True,False);
> if C <> nil then C.SetFocus;
> end;
>
> and then in my component
>
> procedure TnkmCustomEdit.AutoExit;
> var
> P :TnkmParent;
> begin
> P := TnkmParent(Parent);
> P.GotoNextControl(Self);
> end;
>
>
>
> "WorldSecure <sovereign.co.nz>" made the following
> annotations on 02/03/00 16:49:59
> --------------------------------------------------------------------------
----
>
> [INFO] -- Content Manager:
> This e-mail message and any attachments are confidential to Sovereign
Limited and subsidiaries and subject to legal privilege. If you have
received this e-mail in error, please advise the sender immediately and
destroy the message and any attachments. If you are not the intended
recipient you are notified that any use, distribution, amendment, copying or
any action taken or omitted to be taken in reliance of this message or
attachments is prohibited.
>
>
============================================================================
==
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
