|
修正しました．
こちらの方がいいようです．
ダウンロードのプロジェクトも更新しました．
動作確認環境は，Windows XP(SP3) + Delphi 2010 + Excel2000 です．
他の環境では全くテストしていません．
procedure TplExcelFormEx2.WndProc(var Message: TMessage);
var
DialogWnd : HWND;
ARect : TRect;
begin
inherited;
if Message.Msg = WM_ACTIVATE then begin
DialogWnd := FindWindow(nil, '印刷');
if DialogWnd = 0 then exit;
Windows.GetClientRect(DialogWnd, ARect); //ClientRectの方がいいですね (^^;
MyPanel.Width := 150;
MyPanel.Height := 30;
MyPanel.BevelOuter := bvNone;
MyPanel.ParentWindow := DialogWnd;
MyPanel.Left := 0;
MyPanel.ToP := (ARect.Bottom - ARect.Top) - MyPanel.Height;
MyPanel.Update; //Updateする
end;
end;
|