Am Montag 15 August 2011, 17:11:27 schrieb Patrick Goupell:
> I need to get 2 pieces of info from the user. I will give you code a try.
>
> I know a dialog is just a form. I can create my own dialogs in c++.
>
> So now I need to learn how to do it in msegui (pascal).
>
For example the dialog form:
"
tmydialogfo = class(tmseform)
okbutton: tbutton; //modalresult = mr_ok
ed1: tstringedit;
ed2: tstringedit;
end;
"
The dialog call:
"
procedure tmainfo.dialogexe(const sender: TObject);
var
mstr1: msestring;
mstr2: msestring;
begin
with tmydialogfo.create(nil) do begin
show(ml_application);
if window.modalresult = mr_ok then begin
mstr1:= ed1.value;
mstr2:= ed2.value;
//do something with the values
end;
free;
end;
end;
"
Martin
_______________________________________________
MSEide-MSEgui-talk mailing list
MSEide-MSEgui-talk@lists.berlios.de
https://lists.berlios.de/mailman/listinfo/mseide-msegui-talk
