名前
題名
▼ Mr.XRAYさん > 修正しました． > こちらの方がいいようです． > ダウンロードのプロジェクトも更新しました． > 動作確認環境は，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;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link