1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
|
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, RzGroupBar;
type
TForm1 = class(TForm)
RzGroupBar1: TRzGroupBar;
RzGroup1: TRzGroup;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
procedure MyOnClick(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyOnClick(Sender: TObject);
begin
ShowMessage('clicked');
//Find which item triggered this
{
case Of index(Sender)
0:
else
end;
}
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
{
//How to fill contents at run-time, and handle events?
RzGroupBar1.AddGroup('Group1');
RzGroupBar1.AddGroup('Group2');
RzGroupBar1.Groups.AddToGroup()
}
//No OnClick() event
//RzGroup1.On
//Doesn't work
RzGroupBar1.OnClick := MyOnClick;
end; |
Partager