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

Вниз

Странное поведение тулбара   Найти похожие ветки 

← →
Переяслов Григорий ©   (2004-02-05 14:42) [0]

Привет всем.
Я создаю в рунтайме на тулбаре кнопки. И почему - то первая введенная кнопка оказывается справа (кнопки добавляются вначало тулбара), хотя хотелось бы, чтобы она оказвалась слева ( добавлялись в конец тулбара). Можно ли это сделать и как?

---

← →
Rouse_ ©   (2004-02-05 15:39) [1]

Вот накидал тебе примерчик...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ToolWin, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
ToolBar: TToolBar;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Button: TToolButton;
begin
ToolBar := TToolBar.Create(Self);
ToolBar.Parent := Self;
ToolBar.ShowCaptions := True;
Button := TToolButton.Create(ToolBar);
Button.Parent := ToolBar;
Button.Caption := IntToStr(ToolBar.ButtonCount);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Button: TToolButton;
begin
Button := TToolButton.Create(ToolBar);
Button.Parent := ToolBar;
Button.SetBounds(100000, 0, 0, 0);
Button.Caption := IntToStr(ToolBar.ButtonCount);
end;

end.

Желаю успехов

---

← →
Переяслов Григорий ©   (2004-02-05 16:04) [2]

Спасибо, попробую. Я делал так-же, но не делал SetBounds ;-)

---

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

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

Наверх

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