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

Вниз

TCheckBox.OnClick   Найти похожие ветки 

← →
dmk ©   (2015-09-11 04:26) [0]

Всем привет! Если поместить TCheckBox в TValueListEditor как дочерний контрол, то сообщения от TCheckBox не поступают. Просто назначив обработчика OnClick не работает. Сделал наследника от TCheckBox. Вопрос конечно решен, но может есть способ попроще?

Вот код:
unit FM_test_02;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.ValEdit;

type
 TDmCheckBox = class(TCheckBox)
   private
     FOnClick: TNotifyEvent;
     procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
     property OnClick: TNotifyEvent read FOnClick write FOnClick;
   public

 end;

type
 TForm1 = class(TForm)
   ValueListEditor1: TValueListEditor;
   procedure FormShow(Sender: TObject);
   procedure CheckBoxClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 FCheckBox: TDmCheckBox;

implementation

{$R *.dfm}

procedure TDmCheckBox.WMLButtonUp(var Message: TWMLButtonUp);
begin
 inherited;
 if Assigned(FOnClick) then FOnClick(Self);
end;

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
 FCheckBox.Checked := not FCheckBox.Checked;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 FCheckBox := TDmCheckBox.Create(nil);
 FCheckBox.Parent := ValueListEditor1;
 FCheckBox.OnClick := CheckBoxClick;
 FCheckBox.Caption := "TDmCheckBox";
 FCheckBox.Left := 3;
 FCheckBox.Top := 19;
 FCheckBox.Visible := true;
end;

end.

Delphi XE6

---

← →
Юрий Зотов ©   (2015-09-11 14:39) [1]

http://www.cyberforum.ru/delphi-beginners/thread340882.html

---

← →
dmk ©   (2015-09-11 17:14) [2]

Юрий Зотов ©   (11.09.15 14:39) [1]
Там код не рабочий. В самом конце признание ;)

На самом деле я гуглил хорошо. Все варианты или не рабочие или громоздкие (типа замены оконной процедуры). А использовать DrawFrameControl не вариант, т.к. при прокрутке надо следить за отрисовкой, а так дочерний контрол висит всегда где надо.
Ну и ладненько. Оставим наследника. Работает же ;)

---

← →
sniknik ©   (2015-09-12 01:15) [3]

нормально внедряется (события проходят) только в оконные контролы, едит, мемо, дбгрид (инплейс едитор)...  у ValueListEditor-а оконный, виндовый закрыт чисто дельфевской прослойкой. видимо в этом дело, что то там не "пробросили".
а вот если положить сначала на "окно", будет работать, типа
CheckBox1.Parent:= Edit1;
CheckBox1.Left:= 3;
CheckBox1.Top:= 3;

Edit1.Parent:= ValueListEditor1;
Edit1.Left:= 3;
Edit1.Top:= 19;

---

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

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

Наверх

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