> MS Office 97을 실행하면 화면 우측에 도구모음이 생기 쟎아요?
> 그런 도구모음 Bar는 어떻게 만드는지?
> 도구모음을 좌측 또는 위로 움직이면 바탕화면이 우측 또는 아래로 도구모음
> 폭이나
> 높이만큼 조금씩 이동하는데 그 처리는 어떻게 하는지요...
> 답변은 park6394@Unitel.co.kr 또는 dragon@ahone.co.kr로 보내 주세요..
> 그럼 부탁 드립니다....
다음 source는 제가 테스트 한 내용이구요, 아래 source에
한가지 빠진 내용이 있습니다(저만 다하면 재미 없으니까...)
그건 form을 desktop의 좌,우,상,하로 이동할 때 form의
형태가 바뀌는 것인데 그것은 아래 source에 주석표시가
된 곳을 참고하세요.
그럼 좋은 결과 있기를...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
BB_Calc: TBitBtn;
BB_Close: TBitBtn;
BB_notepad: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure BB_CloseClick(Sender: TObject);
procedure BB_CalcClick(Sender: TObject);
procedure BB_notepadClick(Sender: TObject);
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure ExecNewProcess(ProgramName: String);
var
StartInfo : TStartupInfo;
ProcInfo : TProcessInformation;
CreateOK : Boolean;
begin
FillChar(StartInfo, SizeOf(TStartupInfo),#0);
FillChar(ProcInfo, SizeOf(TProcessInformation),#0);
StartInfo.cb := SizeOf(TStartupInfo);
CreateProcess(PChar(ProgramName),nil, nil, nil,False,
CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS, nil,
nil, StartInfo, ProcInfo);
end;
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
// 일반적인 폼의 특성을 다르게 지정
inherited CreateParams(Params);
Params.style := WS_Popup or
WS_ClipChildren or
WS_ClipSiblings or
WS_Border;
end;
procedure TForm1.WMNCHitTest(var Msg: TMessage);
begin
// 윈도우즈에서 WM_NCHITTEST 메시지를 전달받아서 폼의 형식을 다르게 지정
// 왼쪽 마우스 버튼으로 Form을 drag하여 이동할 수 있게 됩니다
if GetAsyncKeyState(VK_LBUTTON) < 0 then
Msg.Result := HTCAPTION
else
Msg.Result := HTCLIENT;
// 참고하시라구 현재 form의 좌표를 표시해봤음
Label1.Caption := IntToStr(Self.Left);
Label2.Caption := IntToStr(Self.Top);
// Self.Width와 Self.Height를 변경하면
// form의 형태를 바꿀 수 있습니다
// ?
// ?
end;
procedure TForm1.BB_CloseClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.BB_CalcClick(Sender: TObject);
begin
// 이 버튼을 누루면 calc.exe가 실행됩니다
ExecNewProcess('c:windowscalc.exe');
end;
procedure TForm1.BB_notepadClick(Sender: TObject);
begin
// 이 버튼을 누루면 notepad.exe가 실행됩니다
ExecNewProcess('c:windowsnotepad.exe');
end;
end.
|
|
