UNIT Unit1;
{$MODE OBJFPC}{$H+}{$J-}
Interface
USES
Windows, Classes, SysUtils,
Forms, Controls, StdCtrls;
TYPE
TForm1 = Class(TForm)
Button1: TButton;
Procedure Button1Click (Sender: TObject);
PRIVATE
Procedure AsyncSound(Data: PtrInt);
End;
VAR
Form1: TForm1;
Implementation
{$R *.LFM}
USES Unit2;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Form2:= TForm2.Create(Self);
Form2.Show;
// After FormCreation do whatever you like !!!
Form2.StaticText1.Caption:= 'I am Form2...';
Form2.Button1.Caption := 'I am the first button';
Form2.Edit1.Text := 'Hello Hello Hello';
// Windows.Beep(800, 1000);
Application.QueueAsyncCall(@AsyncSound, 0);
End;
Procedure TForm1.AsyncSound(Data: PtrInt);
Begin
Windows.Beep(800, 1000);
End;
END.