Code: Alles auswählen
borderstyle := bsNone.
Verschiedene_Titelleisten.pngGenau solche Sachen nerven. Dazumal unter DOS war alles so chaotisch. Mit Win3 wurde endlich mal eine einheitliche Oberfläche eingeführt, welche mit Win2000 den Höhepunkt erreichte. Nachher ging alles wieder Bach ab. Angefangen hat M$ mit diesem Mist, ab Win8 wurde alles unübersichtlicher und un-bedienbarer. Nachher zogen leider auch viele andere mit, vor allem Browser Hersteller.Dein Ansatz verstößt mE gegen die GUI-Richtlinien der Zielplattform.
Ja, über dieMessagequece geht im Endeffekt alles drüber, es wird nur sehr gut durch die komfortablen Events gut versteckt. Man hat damit meistens nur zu tun, wenn man eigene Botschaften ins System einschleusen muss. Oder halt für so Spezialfälle so wie hier.
Code: Alles auswählen
var
PrevWndProc: WNDPROC;
FlagDown:Boolean;
var sx,sy,x,y:Integer;
{ TForm1 }
function WndCallback(Ahwnd: HWND; uMsg: UINT; wParam: WParam; lParam: LParam): LRESULT; stdcall;
begin
if uMsg = WM_NCLBUTTONUP then begin
FlagDown:=FALSE;
end;
if uMsg = WM_NCLBUTTONDOWN then begin
sx:=GET_X_LPARAM(lParam); // Startpunkt X
sy:=GET_Y_LPARAM(lParam); // Startpunkt Y
FlagDown:=TRUE;
end;
if uMsg = WM_NCMOUSEMOVE then begin
x:=GET_X_LPARAM(lParam); // aktuelle Position X
y:=GET_Y_LPARAM(lParam); // aktuelle Position Y
if FlagDown then begin
Form1.left:=Form1.left-sx+x; // horizontal verschieben
end;
end;
Result := CallWindowProc(PrevWndProc, Ahwnd, uMsg, WParam, LParam); // Das Original aufrufen
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Die WndProc umleiten auf die neue WndCallback Funktion
PrevWndProc := Windows.WNDPROC(SetWindowLongPtr(Self.Handle, GWL_WNDPROC, PtrInt(@WndCallback)));
end; Ich habe da mal etwas probiert, was auch auf Linux funktioniert.Ohne Die Unit Windowes geht das eh nicht,
LM_Message.zipCode: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus;
type
{ TForm1 }
TForm1 = class(TForm)
MainMenu1: TMainMenu;
FileMenu: TMenuItem;
OpenItem: TMenuItem;
SaveItem: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ private declarations }
FDragging: Boolean;
FDeltaX, FDeltaY: Integer;
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
// Initialize variables
FDragging := False;
FDeltaX := 0;
FDeltaY := 0;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Check if the mouse is over the MainMenu
if MainMenu1.ClientRect.Contains(Point(X, Y)) then
begin
// Start dragging
FDragging := True;
// Record the initial mouse position relative to the form
FDeltaX := X;
FDeltaY := Y;
end;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
// Check if dragging is in progress
if FDragging then
begin
// Calculate the new position of the form
Left := Left + (X - FDeltaX);
Top := Top + (Y - FDeltaY);
end;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Stop dragging
FDragging := False;
end;
end.
Code: Alles auswählen
if MainMenu1.ClientRect.Contains(Point(X, Y)) Ich habe gerade eine neue Anwendung erstellt und BorderStyle auf bsNone gesetzt.Da meine Windows-Application auch ein MainMenu enthält, habe ich mir in den Kopf gesetzt, das Verschieben der Application durch Mausklick in das MainMenu zu realisieren.
Verein
Links Suche
