Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Fussball-Robby,
13. Apr 2008
Verschieben: procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
(Sender as TWinControl).Perform(WM_SYSCOMMAND, $F012, 0);
end;
kan aber auch ins OnMouseDown
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Fussball-Robby,
12. Apr 2008
Du leitest vorher noch eine andere Klasse von TPanel ab, in der du die CreateParams nicht überschreibst:
type
TMyPanel= class(ExtCtrls.TPanel);
TPanel= class(ExtCtrls.TPanel)
public
procedure CreateParams(var Params: TCreateParams); override;
end//
Mfg
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Fussball-Robby,
12. Apr 2008
Du prüfst, wo sich die Maus befindet und hast im OnMoueMove folgendes:
if ssLeft in Shift then
begin
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND, XX, 0);
end;
Wobei du XX ersetzen musst, je nach dem, wo sich die Maus befindet:
$F001: linke Seite
$F002: rechte Seite
$F003: oben