|
Showmessage 박스가 좀 그래서.. 따로 폼을 만들어서 띄울려고 하거든요.
그래서 폼을 Create해서 띄울때 생성자를만들어서 몬가 변수를 넣어서 띄우게 하고 싶거든요..
좀 찾아봤는데 잘 안되서..
* 요기가 폼 띄우는 버튼
FF:= TForm2.Create(self, 'abc');
FF.Show;
* 요기가 띄워지는 폼
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm2= class(TForm)
private
{ Private declarations }
public
{ Public declarations }
Constructor Create( Owner : TComponent; i : string);
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
Constructor TForm_TForm2.Create( Owner : TComponent; i : string);
begin
TForm2.Caption := i ;
end;
end.
이렇게 여기까지 하는데.. 생성이 안됩니다.. override? 를 해야하나요? 가르쳐주세요..
|