Mattias Gaertner schreef:
On Thu, 10 May 2007 22:09:14 +0200
"Patrick Chevalley" <[EMAIL PROTECTED]> wrote:
2007/5/10, Mattias Gaertner <[EMAIL PROTECTED]>:
Or, if the 'ok' button of the wince form is merely a 'default'
button, then
if (TheForm.DefaultControl<>nil) then
TheForm.DefaultControl.ExecuteDefaultAction;
Thanks Mattias! , I really like this solution as it also work for
mbYes and other. It work very well and I think this is safe to use
because the messagedialog default button is consistently set by
ModalDefaultButton().
I also add IDCANCEL to execute
TheForm.CancelControl.ExecuteCancelAction in the same manner because
I finally get SHDoneButton to change the OK button by Cancel to test
that, you must call it with parameter SHDB_SHOWCANCEL whose value is
$0004. I send the change for the wince RTL to add this constant now.
Not sure if it is a good idea to put a Cancel button on the top bar
but this is good to have if someone need that.
If no other remark, I think this patch can be applied now.
This means, this patch only works with a very recent fpc, right?
What is the minimum compiler for the LCL wince intf?
2.1.x.
But AFAIK, this patch has been merged to the fixes branch (i.e. 2.1.5).
Vincent
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
