Einzelnen Beitrag anzeigen

PeterPanino

Registriert seit: 4. Sep 2004
1.465 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: TTitleBarPanel Popup-Menü?

  Alt 16. Okt 2023, 12:34
TIPP: Da man mit diesem Workaround das Fenster nicht mehr durch Draggen der Titelleiste bewegen kann, gibt es auch dafür einen Workaround:

Delphi-Quellcode:
procedure TForm1.ImageDummyTitlebarMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DRAGMOVE = $F009;
begin
  if Button = mbLeft then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;
Geändert von PeterPanino, damit der Platz auf dem Bildschirm nicht so leer aussieht.
  Mit Zitat antworten Zitat