{
먼저 프로젝트 하나를 시작하구요
폼에 버튼을 4개 놓으세요.
그리고 밑의 예제를 실행해 보시면
아실겁니다.
도움되시길...
}
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
bordericons:=[biSystemMenu,biMaximize];
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
bordericons:=[biMaximize,biMinimize];
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
bordericons:=[biSystemMenu,biMinimize];
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
{토클}
if borderstyle=bsDialog then borderstyle:=bsSizeable else borderstyle:=bsDialog;
end;
end.
|