<?php
if (!extension_loaded('delphi_class')) {
dl('delphi_class.dll');
}
$a = delphi_class_create("TButton", 'btnOK');
delphi_set_prop($a, "Caption", "OK");
echo delphi_get_prop($a, "Caption");
echo "\n";
delphi_class_free($a);
?>
if (!extension_loaded('delphi_class')) {
dl('delphi_class.dll');
}
if (!extension_loaded('delphi_class2')) {
dl('delphi_class2.dll');
}
$a = delphi_class_create("TPHPButton", 'btnOK');
delphi_set_prop($a, "Caption", "OK");
echo delphi_get_prop($a, "Caption");
echo "\n";
$b = register_delphi_object($a);
$b->Caption = "Cancel";
echo $b->caption;
echo "\n";
echo $b->GetClassName();
$f = delphi_form_create("TPHPForm", "MyForm");
$form = register_delphi_object($f);
$form->Caption = "This is a Delphi form!";
$form->BorderStyle = 3;
$form->Color = 333;
$form->Position = 4;
$b->Parent = $f;
$b->Left = 20;
$b->Top = 50;
$b->ScriptText = "delphi_message('Hello');";
$form->ShowModal();
delphi_class_free($a);
delphi_class_free($f);
?>
