Форум: "Начинающим";
Текущий архив: 2017.05.21;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.001 c