| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Button1 [D6, WinXP]
roma © (2004-09-15 15:37:00)Vopros mojet prostoy no ucitivayte ya novicok.
U menya 2 knopki Button1 i Button2 ya xocu ctobi pri najatii Button1 ostslsya najatim a pri najatii Button2 Button1 opuskalsya.
Kak mojno eto napisat mesto ????????
procedure TForm1.Button1Click(Sender: TObject);
begin
?????????
?????????????
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
?????????
?????????????
end;
Zaranie ocen blaqodaren
roma (2004-09-15 17:13:00) [1]default ©(15.09.04 16:45) [4]
Ocen blaqadaryu za pribilniy otvet.
Blaqadaryu vsem.
default (2004-09-15 16:45:00) [2]procedure TForm1.Button2Click(Sender: TObject);
begin
SendMessage(Button1.Handle, BM_SETSTATE, 0, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Button1.Handle, BM_SETSTATE, 1, 0);
end;
PVOzerski (2004-09-15 16:29:00) [3]Боюсь, никак. Претензии даже не в Borland, а прямо в Microsoft :^)
roma (2004-09-15 16:20:00) [4]Ega23 © (15.09.04 15:45) [1]
Ya blaqadaryu Vam za otvet delo v tom cto mne nado imenno TButton.
Ega23 (2004-09-15 15:45:00) [5]Используй TSpeedButton с вкладки Additional.
Вросаешь 2 TSpeedButton на форму, ставишь обоим GroupIndex, например 1. Всё. Обработчики не нужны.
| |
