Form in der Größe veränderbar machen trotz bssingle

[Larsi]

Hi,
ich verwende die Alpha Controls und verwende als Borderstyle bssingle, da bei allen anderen in der Größe veränderbaren Borderstyles der Rahmen zu groß wird durch die Alpha Controls. Gibt es eine Möglichkeit eine Form auch wenn sie bssingle eingestellt hat per Maus in der Größe zu verändern?
MfG Larsi

[DeddyH]

Mit viel Rechenarbeit sollte auch das möglich sein. Du könntest im OnMouseMove ermitteln, ob sich der Mauszeiger am Formularrand befindet und dementsprechend den Cursor verändern. Ist die linke Maustaste gedrückt, müsstest Du die Differenz der Mausposition zu einer in OnMouseDown gemerkten ermitteln und die Formulargröße dementsprechend anpassen.

[Larsi]

Danke. Ich habe jetzt folgendes in der Statusbar versucht:

Delphi-Quellcode:

procedure TForm15.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  qw := x;
  qa := y;
end;

Delphi-Quellcode:

procedure TForm15.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if ssleft in shift then begin
Form15.Width := Form15.width + x - qw;
Form15.height := Form15.height + y - qa;
qw := x;
qa := y;
end;
end;

Es funktioniert eigentlich auch jedoch wackelt das Formular ganz schnell sobald ich die Maus weiter von weg von der Statusbar bewege. Was mache ich falsch?

[DeddyH]

Versuch dasselbe mal mit dem Formular.

[SirThornberry]

schau dir mal die Message WM_NCHITTEST an bzw. suche danach im Forum. Ich denke das ist die korrekte Lösung für dich.

[Edit]
http://www.delphipraxis.net/499020-post5.html