Текущий архив: 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
Время: 5.472 c
