Hallo!

Ich hab eine Klasse von TGroupBox abgeleitet. Desweiteren weise ich im Constructor dem OnMouseMove-Ereignis ein Ereignis zu, dass die GroupBox verschiebbar ist. Wenn jetzt aber außerhalb der Unit, der Klasse ein OnMouseMove-Ereignis zugeweisen wird, dann ist ja das vordefinierte nichtmehr aktiv.
Gibt es da eine Lösung?

EDIT:
Vielleicht ist es hilfreich wenn ich etwas Code poste:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

uses
  StdCtrls, JvSimScope, Classes, JvSwitch, Controls, Windows, Messages;

type
  TEkg = class(TGroupBox)
    (...)
    procedure EkgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    (...)
  end;

implementation

constructor TEkg.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  OnMouseMove := EkgMouseMove;
  (...)
end;

procedure TEkg.EkgMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    ReleaseCapture;
    SendMessage((Sender as TGroupBox).Handle, WM_NCLBUTTONDOWN, 2, 0);
  end;
end;

(...)

end.

Die Komponente würde ich nicht benutzen . Du musst die Message selbst abfangen, dann ist das Event auch für "Außenstehende" benutzbar.

Daran hab ich auch schon gedacht...
Nur kenn ich mich mit den Messages nicht aus... ^^
Kann mir wer helfen?

Habe ich zwar noch nie gebraucht, aber ich probier es mal:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TEkg = class(TGroupBox)
    (...)
    procedure EkgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  public
    constructor Create(AOwner: TComponent); override;
    (...)
  end;

[...]

procedure TControl.WMMouseMove(var Message: TWMMouseMove);
begin
  inherited;
  [...]
end;

In Message steckt noch einiges drin:

zusammenfalten · markieren

Delphi-Quellcode:

TWMMouse = packed record
    Msg: Cardinal;
    Keys: Longint;
    case Integer of
      0: (
        XPos: Smallint;
        YPos: Smallint);
      1: (
        Pos: TSmallPoint;
        Result: Longint);
  end;

Aus akutem Lustmangel irgendeine IDE zu öffnen ziel' ich mal ins Blaue...
Hat der Vorgänger deiner Klasse nicht eine virtual protected methode namens DoMouseMove?
Einfach mal das hier durchlesen.

Ich kapiere übrigens nicht wirklich wie du den Thread üersehen konntest, da schon der Titel danach aussieht als ob er für dich interessant sein könnte...

Nachtrag:
@Khabarakh
Warum sich unnütz die Finger an API Calls dreckig machen, wenn das schon jemand im Vorgänger erledigt hat?

Ja ging so. Danke!

für Ereignisse die nicht mit einer Message zu tun haben geht dann noch folgendes (falls auch keine Protected-Methode dafür da ist)

http://www.delphipraxis.net/internal...=377124#377124

man redeclariert also ein Event und greift auf das alte Event mit inherited zu..