TSplitter mit Doppelklick ansprechen

[RWarnecke]

Hallo zusammen,

Mein erster Gedanke war, auf die Message WM_LBUTTONDBLCLK und den Focus von TSplitter zu reagieren. Nur leider gibt es bei der Komponente keine Methode oder Property, die den Focus abfragt.

Deshalb suche ich noch nach anderen Ideen, wie ich einen Doppelklick auf TSplitter abfangen kann und dann eine Aktion ausgeführt wird.

[worker]

TSplitter ist ein Kind von TControl
Also ableiten und Property veröffentlichen.

Delphi-Quellcode:

   TDblClickSplitter = Class(TSplitter)
   published
      Property OnDblClick;
   End;

Und in Zukunft nicht so kompliziert denken ;)

[uligerhardt]

Oder der übliche protected-friend-Trick:

Delphi-Quellcode:

type
  THACK_Splitter = class(TSplitter);

procedure TForm1.FormCreate(Sender: TObject);
begin
  THACK_Splitter(Splitter1).OnDblClick := Splitter1DblClick;
end;

[RWarnecke]

Danke erstmal für eure Antworten. Ich habe jetzt mal ein bisschen rumprobiert und ich bekomme es nicht zu laufen. Das mein aktuelles Beipsieli dafür :

Delphi-Quellcode:

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm8 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Splitter1DblClick(Sender: TObject);
  public
    { Public declarations }
  end;
  TDblClickSplitter = class(TSplitter);

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Splitter1DblClick(Sender: TObject);
begin
  Panel1.Width := Round(Form8.Width / 2);
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
  TDblClickSplitter(Splitter1).OnDblClick := Splitter1DblClick;
end;

end.

Warum funktioniert das Beipsiel nicht ?

[toms]

Zitat:

Zitat von RWarnecke

Warum funktioniert das Beipsiel nicht ?

Was sollte nicht gehen? Wird das Ereignis nicht ausgelöst?

[RWarnecke]

Zitat:

Zitat von toms

Zitat:

Zitat von RWarnecke

Warum funktioniert das Beipsiel nicht ?

Was sollte nicht gehen? Wird das Ereignis nicht ausgelöst?

Jepp, das Ereignis wird nicht ausgelöst.

[toms]

Seltsam. Funktioniert mit D6 / D2009.

[RWarnecke]

Ich habe es mit einem RAD Studio 2007 ausprobiert. Mit 2007 funktioniert es nicht und mit Turbo Delphi Explorer funktioniert es wieder.

[RWarnecke]

Zitat:

Zitat von RWarnecke

Ich habe es mit einem RAD Studio 2007 ausprobiert. Mit 2007 funktioniert es nicht und mit Turbo Delphi Explorer funktioniert es wieder.

Ich habe das ganze jetzt nochmals getestet unter RAD Studio 2007. Wenn ich dort den Sourcecode compiliere, funktionert es nicht mit dem Doppelklick auf den Splitter. Wird der gleiche Sourcecode unter Turbo Delphi 2006 Explorer kompiliert, funktioniert der Doppelklick auf den Splitter. Hat jemand eine Idee, warum das so ist ?

[RWarnecke]

*push* Hat niemand eine Idee, warum es unter Delphi 6, Turbo Delphi und D2009 funktioniert und unter Delphi 2007 nicht ? *push*