Hello, i trying to implement a new component Edit with aside button..
And internally already implemented OnClick.
But this OnClick method is never called.
here is the code :
for compile the PLUniPesquisa can be removed...
And code of the internal button is here:
unit PLUniSeekButton;
interface
uses
SysUtils, Classes, Controls, Buttons, Messages, Windows, Forms, Graphics,
uniSpeedButton;
type
TPLUniSeekButton = class(TUniSpeedButton)
public
procedure Loaded; override;
constructor Create( AOWner : TComponent ); override;
published
property AutoSize;
end;
implementation
constructor TPLUniSeekButton.Create(AOWner: TComponent);
begin
inherited Create(AOWner);
Name := AOWner.Name+'SubButton';
SetSubComponent(True);
Hint := 'Pesquisar <F2>';
Height := 0;
Width := 0;
caption := '...';
end;
procedure TPLUniSeekButton.Loaded;
begin
inherited;
Name := Self.Owner.Name+'SubButton';
if (self.Hint = '') then
self.Hint := 'Pesquisar <F2>';
caption := '...';
end;
end.
Thanks for any help!