Toolbar и кнопки

← →
Gu (2010-11-11 09:17) [0]

Как програмно на ней создать, скажем, 2 кнопки с капшинами "1" и "2" и с одним обработчиком событий для них, в котором будет ясно, какая из кнопок нажата? (свойство ShowCaptions=true)

← →
sniknik © (2010-11-11 09:39) [1]

а в событии нажатия что "сендера" нет?

← →
12 © (2010-11-11 09:49) [2]

tb1: TToolBar;
btn4: TButton;
btn5: TButton;

procedure TForm1.btn4Click(Sender: TObject);
begin
ShowMessage( TButton(sender).Caption );
end;

procedure TForm1.btn5Click(Sender: TObject);
var
b1:TButton;
begin
b1 := TButton.Create(tb1);
b1.Name := "b11";
b1.Caption := "bbbb";
b1.Parent := tb1;
b1.OnClick := btn4Click;

b1 := TButton.Create(tb1);
b1.Name := "b22";
b1.Caption := "cccc";
b1.Parent := tb1;
b1.OnClick := btn4Click;
end;

← →
Palladin © (2010-11-11 09:52) [3]

> sniknik © (11.11.10 09:39) [1]

есть, но для него мозги нужны

← →
Gu (2010-11-11 11:47) [4]

12 спасибо

← →
Плохиш © (2010-11-11 11:55) [5]

> Palladin © (11.11.10 09:52) [3]
>
>
> > sniknik © (11.11.10 09:39) [1]
>
> есть, но для него мозги нужны

Зачем мозги? На делфимастере есть защитники немощных и обездоленных.

← →
12 © (2010-11-11 12:28) [6]

просто мне показалось, что я его знаю :)

← →
Gu (2010-11-11 12:34) [7]

2 плохиш - я спросил, человек ответил, тема закрыта.

а такие как вы могут толька в гугл отсылать и начинать флейм на тему "все мудаки, адин я умный". не знаете как ответить или нечего сказать - просто ничего не пишите, думаете мне или комуто еще тут ваши умные мысли на эту тему нужны? все знать нельзя и эта ветка форума для начинающих, идите свою крутость и познания в другом месте показывать. всегда найдутся области, где вы полный ноль, и будет сидеть такой же умник как вы, который и вас пошлет или будет говорить о вашей немощности. а в реале за такое можно и в ухо получить от "немощного" незнайки.

← →
12 © (2010-11-11 12:36) [8]

мда, значит, ошибся :)

← →
faiwer © (2010-11-11 12:58) [9]

Gu, не переживай - неадекватное чувство юмора, а также завышенное ЧСВ - профессиональная болезнь делфинистов :)

А возможно тут хитрый план: делфи то давно умер, и приток новых программеров весьма низок, т.к. все начинают с дотнет и пехапе. Ну а старые пердуны пытаются повысить свою конкурентоспособность морально задавливая новичков :)

← →
Dennis I. Komarov © (2010-11-11 13:28) [10]

не стыдно не знать, стыдно не хотеть узнать...

← →
Gu (2010-11-11 16:35) [11]

почему

procedure TForm1.Toolbar1CustomDrawButton(Sender: TToolBar; Button: TToolButton;
State: TCustomDrawState; var DefaultDraw: Boolean);
begin
Sender.Canvas.Brush.Color:=clAqua;
Sender.Canvas.Rectangle(Button.BoundsRect);
end;

неработает когда Toolbar1.DrawinStyle:=dsGradient?

можно сделать чтобы и гардиент был и цвет менялся? Ведь событие все равно отрабатывает вроде.

← →
Gu (2010-11-12 10:15) [12]

ну что, никто не подскажит? хотябы только чтобы цвет шрифта менять..

1. нет такого свойства Toolbar1.DrawinStyle у некоторых
2. что хотите - не совсем понятно

← →
Gu (2010-11-12 12:30) [14]

1. у толбара стиль отображения Гардиент - вкл
2. у толбара - шоукапшионс тру
3. на толбаре несколько кнопок (в капшионс у каждой кнопки буквы A, B, и тд)
4. у каждой кнопки тагу присвоен номер

хочу: чтобы цвет шрифта кнопок с номерами тагов например 2 и 5 был синим, остальных черным

← →
Gu (2010-11-12 12:32) [15]

или если со шрифтом капшионс неполучится, чтобы цвет нужных кнопок был синим например

TToolbar не есть TToolButton

← →
Gu (2010-11-13 05:50) [17]

> TToolbar не есть TToolButton

и что?

> и что?

То, что непонятны пляски с бубном в [11]

Toolbar и кнопки Найти похожие ветки