Tform Delphi/꿀팁 TForm 배경 투명하게 만들기 uses .., Vcl.Controls, Vcl.Graphics; type TForm1 = class(TForm) .. procedure FormCreate(Sender: TObject); private procedure CreateParams(var Params: TCreateParams); override; end; implementation procedure TForm1.FormCreate(Sender: TObject); begin Self.Brush.Style := bsClear; end; procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := WS_.. Delphi/끄적이기 단순한 일회성 폼 띄우기 type TSubForm = class(TForm) private { Private declarations } FResult : Integer; public { Public declarations } class function inits: Integer; static; //리턴값은 마음대로 선택하여 사용 end;{TSubForm} class function TSubForm.inits: Integer; begin with TSubForm.Create(nil) do begin try Position := poMainFormCenter; {To Do} ShowModal; Result := FResult; finally Free; end; end; end; Call procedure TForm1.Button1C.. 이전 1 다음
