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 :^)

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;

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