Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Toolbar и кнопки

Gu © (2010-11-11 09:17:00)
Как програмно на ней создать, скажем, 2 кнопки с капшинами '1' и '2' и с одним обработчиком событий для них, в котором будет ясно, какая из кнопок нажата? (свойство ShowCaptions=true)

Dennis I. Komarov (2010-11-13 13:17:00) [1]

> и что?

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

Gu (2010-11-13 05:50:00) [2]

> TToolbar не есть TToolButton

и что?

Dennis I. Komarov (2010-11-12 12:40:00) [3]
TToolbar не есть TToolButton

Gu (2010-11-12 12:32:00) [4]
или если со шрифтом капшионс неполучится, чтобы цвет нужных кнопок был синим например

Gu (2010-11-12 12:30:00) [5]
1. у толбара стиль отображения Гардиент - вкл
2. у толбара - шоукапшионс тру
3. на толбаре несколько кнопок (в капшионс у каждой кнопки буквы A, B, и тд)
4. у каждой кнопки тагу присвоен номер

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

12 (2010-11-12 11:28:00) [6]
1. нет такого свойства Toolbar1.DrawinStyle у некоторых
2. что хотите - не совсем понятно

Gu (2010-11-12 10:15:00) [7]
ну что, никто не подскажит? хотябы только чтобы цвет шрифта менять..

Gu (2010-11-11 16:35:00) [8]
почему

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?

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

Dennis I. Komarov (2010-11-11 13:28:00) [9]
не стыдно не знать, стыдно не хотеть узнать...

faiwer (2010-11-11 12:58:00) [10]
Gu, не переживай - неадекватное чувство юмора, а также завышенное ЧСВ - профессиональная болезнь делфинистов :)

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

12 (2010-11-11 12:36:00) [11]
мда, значит, ошибся :)

Gu (2010-11-11 12:34:00) [12]
2 плохиш - я спросил, человек ответил, тема закрыта.

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

12 (2010-11-11 12:28:00) [13]
просто мне показалось, что я его знаю :)

Плохиш (2010-11-11 11:55:00) [14]

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

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

Gu (2010-11-11 11:47:00) [15]
12 спасибо

Palladin (2010-11-11 09:52:00) [16]

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

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

12 (2010-11-11 09:49:00) [17]
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;

sniknik (2010-11-11 09:39:00) [18]
а в событии нажатия что "сендера" нет?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »