OnDblClick на Splitter

← →
Tex © (2007-01-08 11:25) [0]

Здравствуйте, мастера! Необходимо реализовать обработку двойного клика на splitter"e, подскажите пожалуйста как это можно сделать! Если несложно, с кодом. Заранее благодарен!

← →
Tex © (2007-01-08 13:42) [1]

Насколько это реально? Если все оч. просто подскажите хоть в общих чертах...

← →
i-am-vladko © (2007-01-08 14:02) [2]

TSplitter - наследник TGraphicControl <- TControl
В TControl есть OnDblClick в protected секции, значит создаешь класс
TMySplitter = class (TSplitter) published property OnDblClick: TNotifyEvent; end;
все!

← →
Tex © (2007-01-11 13:12) [3]

Поясните чуть подробнее чайнику плиз!
В код добавил:

unit Unit1;

interface

uses
...
type
TMySplitter = class (TSplitter)
published
property OnDblClick: TNotifyEvent; //строка 18
end; //строка 19
TForm1 = class(TForm)
...
Выдает ошибки:
[Error] Unit1.pas(18): INDEX, READ or WRITE clause expected, but ";" found
[Error] Unit1.pas(19): READ or WRITE clause expected, but "END" found

Я понимаю, что задача скорее всего тривиальнейшая, но никак не могу разобраться, подскажите кто-нибудь...

← →
Loginov Dmitry © (2007-01-11 15:02) [4]

А класс-то зачем дополнительный создавать?

← →
Tex © (2007-01-12 08:59) [5]

А как сделать, можно код плиз?

← →
clickmaker © (2007-01-12 10:33) [6]

> [5] Tex © (12.01.07 08:59)

просто
property OnDblClick;

← →
trubin © (2007-01-12 11:41) [7]

Получить доступ к protected-свойствам класса можно так:

type TAccessSplitter = class(TSplitter); ... TAccessSplitter(Splitter1).OnDblClick:= MyMethod;

Написал в type:

type TAccessSplitter = class(TSplitter); TForm1 = class(TForm) StatusBar1: TStatusBar Butto1: TButton; ...

Извините за, может быть, глупый вопрос, я не понял где разместить:

TAccessSplitter(Splitter1).OnDblClick:= MyMethod;

Пожалуйста, можно чуть подробнее :(

← →
гостъ (2007-01-17 16:48) [9]

Так, например...
type TAccessSplitter = class ( TSplitter ); TForm1 = class ( TForm ) StatusBar1 : TStatusBar Button1 : TButton; Splitter1 : TSplitter; private procedure OnSplitterDblClick ( Sender : TObject ); public constructor Create ( AOwner : TComponent ); override; end; constructor TForm1.Create ( AOwner : TComponent ); begin inherited Create ( AOwner ); TAccessSplitter ( Splitter1 ).OnDblClick := OnSplitterDblClick; end; procedure TForm1.OnSplitterDblClick ( Sender : TObject ); begin OutputDebugString ( PChar ( "Splitter clicked" ) ); end;

Огромное спасибо!
Все отлично работает, Вы очень помогли, теперь все понятно )
Побольше бы таких ответов! Удачи!

OnDblClick на Splitter Найти похожие ветки