www.pudn.com > FastScript15.rar > forms.cpp

/**************************} 
{ FastScript v1.0          } 
{ Forms demo               } 
{**************************/ 
 
TForm f; 
TButton b; 
 
 
void ButtonClick(TButton Sender) 
{ 
  ShowMessage(Sender.Name); 
  f.ModalResult = mrOk; 
} 
 
void ButtonMouseMove(TButton Sender) 
{ 
  b.Caption = "moved over"; 
} 
 
 
{ 
  f = new TForm(nil); 
  f.Caption = "Test it!"; 
  f.BorderStyle = bsDialog; 
  f.Position = poScreenCenter; 
 
  b = new TButton(f); 
  b.Name = "Button1"; 
  b.Parent = f; 
  b.SetBounds(10, 10, 75, 25); 
  b.Caption = "Test"; 
 
  b.OnClick = &ButtonClick; // same as b.OnClick = "ButtonClick" 
  b.OnMouseMove = &ButtonMouseMove; 
 
  f.ShowModal; 
  f.Free; 
}