くだすれDelphi(超初心者用)その15
■ このスレッドは過去ログ倉庫に格納されています
0115デフォルトの名無しさん
NGNGメインフォームのInterface部に以下を記述
//●何も考えずにメインフォームにコレを記述●
THideTaskBarApplication = class(TApplication)
public
constructor Create(AOwner: TComponent); override;
end;
メインフォームのimplementation部に以下を記述
//●何も考えずにメインフォームにコレを記述●
constructor THideTaskBarApplication.Create(AOwner: TComponent);
var
WndStyle: Integer;
begin
inherited;
WndStyle := GetWindowLong(Handle, GWL_EXSTYLE);
WndStyle := WndStyle or WS_EX_TOOLWINDOW;
SetWindowLong(Handle, GWL_EXSTYLE, WndStyle);
end;
//●何も考えずにメインフォームにコレを記述●
initialization
Application.Free;
Application := THideTaskBarApplication.Create(nil);
end.
■ このスレッドは過去ログ倉庫に格納されています