|
ｿｽ@ｿｽｿｽｿｽ^ｿｽCｿｽgｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾏぱ擾ｿｽｿｽSｿｽｿｽ 2006/08/25(ｿｽｿｽ) 12:18:04
ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽBorderStyleｿｽｿｽbsNoneｿｽﾉ設定すｿｽｿｽﾎタｿｽCｿｽgｿｽｿｽｿｽoｿｽ[ｿｽﾍ表ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽsｿｽｿｽｿｽﾉフｿｽHｿｽ[ｿｽｿｽｿｽﾌサｿｽCｿｽYｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍどのようｿｽﾉ設定すｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾝゑｿｽﾝゑｿｽ 2006/08/27(ｿｽｿｽ) 02:58:43
//ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉボｿｽ^ｿｽｿｽｿｽｿｽPｿｽﾂ置ｿｽｿｽｿｽｿｽ
procedure TForm1.FormCreate(Sender: TObject);
begin
Borderstyle :=bsnone;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientWidth :=ClientWidth+10;
ClientHeight :=ClientHeight+10;
end;
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾊのウｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌようｿｽﾉ具ｿｽｿｽEｿｽｿｽhｿｽｿｽｿｽbｿｽOｿｽｿｽｿｽﾄサｿｽCｿｽYｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾝゑｿｽﾝゑｿｽ 2006/08/28(ｿｽｿｽ) 22:08:29
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌ意厄ｿｽｿｽｿｽｿｽかｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽbｿｽgｿｽﾌ表ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾄ、
program test;
uses
Forms,windows,ｿｽ@//windows ｿｽｿｽﾇ会ｿｽ
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
ｿｽ@ｿｽ@//ｿｽｿｽﾌ１ｿｽsｿｽｿｽﾇ会ｿｽｿｽ@ｿｽ^ｿｽXｿｽNｿｽoｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽ
Application.Run;
end.
ｿｽｿｽｿｽｿｽﾅタｿｽCｿｽgｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾉなゑｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
zebra 2006/08/29(ｿｽｿｽ) 02:34:58
ｿｽｿｽｿｽﾌようｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ如ｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
BorderStyleｿｽｿｽbsNoneｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ以会ｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾎ、
ｿｽｿｽｿｽｿｽ]ｿｽﾊゑｿｽﾌ難ｿｽｿｽｿｽﾉなゑｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾆは、ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽKｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾄみて会ｿｽｿｽｿｽｿｽｿｽｿｽB
type
TForm1 = class(TForm)
private
{ Private ｿｽ骭ｾ }
protected
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := Style or WS_THICKFRAME;
end;
ｿｽﾏぱ擾ｿｽｿｽSｿｽｿｽ 2006/08/29(ｿｽｿｽ) 08:43:52
ｿｽﾝゑｿｽﾝんさゑｿｽAzebraｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽ]ｿｽﾊゑｿｽﾌ難ｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
