Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c