| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
нажатие Buton [D7]
greengeneral © (2006-09-13 19:27:00)Здравствуйте.
Какую команду надо написать за место **********чтобы при нажатии Buton выполнялась следующие действия?
procedure TForm2.FormCreate(Sender: TObject);
var
rey: integer;
den: Int64;
stat: string;
nastr: string;
izv: string;
aktiv: string;
begin
rey:=0;
den:=10000;
stat:='Ñòóäåíò';
nastr:='Íîðìàëüíîå';
izv:='Íåèçâåñòåí';
aktiv:='Íå àêòèâåí';
form2.Label7.Caption:= IntToStr(den);
form2.label4.Caption:=IntToStr(rey);
form2.Label9.Caption:= stat;
form2.Label11.Caption:= nastr;
form2.label13.Caption:= izv;
form2.Label15.Caption:= aktiv;
if *************************
then
begin
den:=den+1234;
form2.Label7.Caption:= IntToStr(den);
form2.label4.Caption:=IntToStr(rey);
end
else
end;
Anatoly Podgoretsky (2006-09-13 19:39:00) [1]При FormCreate ни о каких нажатиях и речи быть не может.
umbra (2006-09-13 19:33:00) [2]
> Какую команду надо написать за место **********
true
> чтобы при нажатии Buton
а где же сам Buton?
Dmitrij_K (2006-09-13 19:33:00) [3]Мы не телепаты.
| |
