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

Вниз

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

 
greengeneral ©   (2006-09-13 19:27) [0]

Здравствуйте.

Какую команду надо написать за место ********** чтобы при нажатии 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;


 
umbra ©   (2006-09-13 19:33) [1]


> Какую команду надо написать за место **********

true


> чтобы при нажатии Buton

а где же сам Buton?


 
Dmitrij_K   (2006-09-13 19:33) [2]

Мы не телепаты.


 
Anatoly Podgoretsky ©   (2006-09-13 19:39) [3]

При FormCreate ни о каких нажатиях и речи быть не может.



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

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

Наверх




Память: 0.47 MB
Время: 0.033 c
15-1157772748
SergP
2006-09-09 07:32
2006.10.01
Почему нет доступа?


1-1156026480
Селезин
2006-08-20 02:28
2006.10.01
Как устранить мерцание вторичных окон?


15-1157806670
Сергуня
2006-09-09 16:57
2006.10.01
Что будет в будущем с Россией и с нами


1-1156147536
webpauk
2006-08-21 12:05
2006.10.01
Диагональная заливка


15-1158158519
Vlad Oshin
2006-09-13 18:41
2006.10.01
нашел письмо