david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
9 lines
191 B
ObjectPascal
9 lines
191 B
ObjectPascal
var
|
|
MyForm: TForm;
|
|
begin
|
|
MyForm := JvInterpreterMakeForm(SamplesDir+'fModalForm.pas');
|
|
if MyForm.ShowModal = mrOk then
|
|
showmessage('OK button clicked');
|
|
MyForm.Free;
|
|
end;
|