Создание и показ кнопки на панели. Этот код вызывается при создании каждой дочерней формы
procedure TfmMain.CreateFormButton(form1:TForm);
var
ABar : TdxBar;
NewButton : TdxBarButton;
NewItemLink : TdxBarItemLink;
begin
inc(iButtonsCount);
ABar := Bar1;
NewButton := TdxBarButton.Create(self);
NewItemLink := ABar.ItemLinks.Add;
NewItemLink.Item := NewButton;
NewItemLink.Item.Tag := form1.Handle;
NewButton.Tag := form1.Handle;
NewButton.Name := 'dxButton'+IntToStr(NewButton.Tag);
NewButton.Caption := form1.Caption + '[' + IntToStr(iButtonsCount) + ']';
NewButton.Hint := form1.Caption;
NewButton.OnClick := dxBarButtonClick;
NewButton.ButtonStyle := bsChecked;
NewButton.Down := true;
NewButton.PaintStyle := psCaptionGlyph;
NewButton.GroupIndex := 1;
NewButton.Glyph.Width := 16;//GetSystemMetrics(SM_CXSMICON);
NewButton.Glyph.Height := 16;//GetSystemMetrics(SM_CYSMICON);
NewButton.Glyph.Canvas.Draw(0,0,form1.Icon);
ABar.Control.RepaintBar;
end;
пример использования
procedure TfmArrival.FormCreate(Sender: TObject);
begin
fmMain.CreateFormButton(self);
end;
|
Главная
Каталог файлов
