Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

Добавление события   Найти похожие ветки 

← →
Checist [root]   (2004-04-05 13:53) [0]

Как добавить компоненту Gauge событие OnClick и OnDbClick?

---

← →
Anatoly Podgoretsky ©   (2004-04-05 14:15) [1]

В любой секции пищешь
property OnClick: тип

---

← →
Checist [root]   (2004-04-05 14:18) [2]

А какой именно тип? Если можно по подробней

---

← →
Anatoly Podgoretsky ©   (2004-04-05 14:25) [3]

Это ты должен сам решить.

---

← →
ssk   (2004-04-05 14:29) [4]

вот наследник:unit MyGauge;

interface

uses
 SysUtils, Classes, Controls, Gauges;

type
 TMyGauge = class(TGauge)
 public
   constructor Create(AOwner: TComponent); override;
   destructor  Destroy; override;
 published
   property OnDblClick;
   property OnClick;
   property OnMouseUp;    
   property OnMouseDown;
   property OnMouseMove;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents("My Components", [TMyGauge]);
end;

constructor TMyGauge.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
end;

destructor TMyGauge.Destroy;
begin
 inherited Destroy;
end;

end.

но учти, что если пропишешь обработчик OnClick и OnDblClick одновременно, то OnDblClick работать не будет.

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c