Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

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

 
roma ©   (2004-09-15 15:37) [0]

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


 
Ega23 ©   (2004-09-15 15:45) [1]

Используй TSpeedButton с вкладки Additional.
Вросаешь 2 TSpeedButton на форму, ставишь обоим GroupIndex, например 1. Всё. Обработчики не нужны.


 
roma ©   (2004-09-15 16:20) [2]

Ega23 ©   (15.09.04 15:45) [1]

Ya blaqadaryu Vam za otvet delo v tom cto mne nado imenno TButton.


 
PVOzerski ©   (2004-09-15 16:29) [3]

Боюсь, никак. Претензии даже не в Borland, а прямо в Microsoft :^)


 
default ©   (2004-09-15 16:45) [4]

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;


 
roma ©   (2004-09-15 17:13) [5]

default ©(15.09.04 16:45) [4]
Ocen blaqadaryu za pribilniy otvet.

Blaqadaryu vsem.



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

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

Наверх




Память: 0.47 MB
Время: 0.048 c
1-1095413551
Чайник
2004-09-17 13:32
2004.10.03
и снова цвет...


14-1095342975
Константинов
2004-09-16 17:56
2004.10.03
Сроду не догадаетесь!!!


4-1092994681
eli
2004-08-20 13:38
2004.10.03
Как узнать раскладку клавиатуры


3-1094470590
Павел
2004-09-06 15:36
2004.10.03
Визуализация ....select count(*) from Baza1


6-1090467238
НовиЧок
2004-07-22 07:33
2004.10.03
Блокировка ошибок в WebBrowser e