폼2에 이벤트 핸들러를 선언 하시고요..
폼1의 초기화 등에서
ListBox1.OnClick:= Form2.Listbox1Click;
과 같이 하시면 될 겁니다..
(델파이를 또 지우는 바람에 쫍..)
온라인으로 잠시 코딩을 해보면..
* Unit1
Implementation
Uses
Unit2;
{$R *.DFM}
Procedure TForm1.FormCreate(Sender:TObject);
Begin
Button1.OnClick:= Form2.Button1Click;
End;
* Unit2
Type
TForm2 = Class(TForm)
Private
Public
Procedure Button1Click(Sender:TObject);
End;
Var
Form2 : TForm2;
Implementation
Procedure TForm2.Button1Click(Sender:TObject);
Begin
ShowMessage('..');
End;
From 류..
|