MessageDlgを常に手前にするには (ID:9674)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 強引な気もしますが…これなら行けると思います。 procedure TForm1.xOnshow(Sender: TObject); begin SetWindowPos(TForm(Sender).Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE); end; //でしゃばるMessageDlg function TForm1.xMessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer; begin with CreateMessageDialog(Msg, DlgType, Buttons) do try HelpContext := HelpCtx; Position := poScreenCenter; OnShow := xOnshow; ShowModal; finally free; end; end;