フリーソフト

« [BCB] 継承元の'Label2'が見つかりません. エラー | トップページ | [BCB] タイトルバーがないフォームを移動する »

[Delphi] 「デスクトップの表示」や「Windows+D」でも最小化されないウインドウの作り方

「デスクトップの表示」や「Windows+D」でも最小化されないウインドウの作り方

constructor TForm1.Create(AOwner: TComponent);
var
  ProgmanHwnd: THandle;
begin
  inherited;
  ProgmanHwnd:=FindWindow('Progman','Program Manager');
  if ProgmanHwnd<>0 then
  begin
    ParentWindow:= ProgmanHwnd;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    //前面に表示する
    SetZOrder( True);
end;

« [BCB] 継承元の'Label2'が見つかりません. エラー | トップページ | [BCB] タイトルバーがないフォームを移動する »

Delphi」カテゴリの記事

フォーム・ダイアログ関連」カテゴリの記事