Доброго времени суток. У меня проблема связанная с описанием кнопки. Задача поставленна что бы вручную всё прописывать. Вид весь я прописал, а вот выполнение кнопки при нажатии никак не могу сделать, помогите пожалуйста.
procedure TForm1.FormCreate(Sender: TObject); begin
Edit1:= TEdit.Create(form1);
with edit1 do begin Parent:=form1; Left:=180; Top:=40; end;
Label1:=Tlabel.Create(Form1);
with Label1 do begin Parent:=Form1; Left:=80; Top:=45; Caption:='Задайте число A:'; end; Edit2:= TEdit.Create(form1);
with edit2 do begin Parent:=form1; Left:=180; Top:=80; end;
Label2:=Tlabel.Create(Form1);
with Label2 do begin Parent:=Form1; Left:=80; Top:=85; Caption:='Задайте число B:'; end; Edit3:= TEdit.Create(form1);
with edit3 do begin Parent:=form1; Left:=180; Top:=120; end;
Label3:=Tlabel.Create(Form1);
with Label3 do begin Parent:=Form1; Left:=80; Top:=125; Caption:='Задайте число C:'; end; Label4:=Tlabel.Create(Form1);
with Label4 do begin Parent:=Form1; Left:=50; Top:=10; Caption:='Программа вычисляет дискриминант квадратного уравнения'; end;
Label5:=Tlabel.Create(Form1); with Label5 do begin Parent:=Form1; Left:=80; Top:=160; end; Label6:=Tlabel.Create(Form1); with Label6 do begin Parent:=Form1; Left:=80; Top:=180; end; Label7:=Tlabel.Create(Form1); with Label7 do begin Parent:=Form1; Left:=80; Top:=200; end; Label8:=Tlabel.Create(Form1); with Label8 do begin Parent:=Form1; Left:=80; Top:=220; end; BitBtn1:=TBitBtn.Create(Form1); with BitBtn1 do begin Parent:=Form1; Left:=324; Top:=40; caption:='Вычислить'; end; BitBtn2:=TBitBtn.Create(Form1); with BitBtn2 do begin Parent:=Form1; Left:=324; Top:=80; caption:='Выход'; end; end; procedure TForm1.BitBtn1OnClick(Sender: TObject); var a,b,c:real; d:real; begin Label5.Caption := 'A: '+Edit1.Text; Label6.Caption := 'B: '+Edit2.Text; Label7.Caption := 'C: '+Edit3.Text; a:= StrToFloat(Edit1.Text); b:= StrToFloat(Edit2.Text); c:= StrToFloat(Edit3.Text); d:=sqr(b)-4*a*c; label8.Caption := 'Результат: ' + FloatToStr(d); end; procedure TForm1.BitBtn2OnClick(Sender: TObject); begin Form1.Close; end; end.
Rian
14.03.2008 4:46
Вот такой примерчик
Single
14.03.2008 5:33
Конструктором не подходит, всё написано руками....
volvo
14.03.2008 5:39
Цитата
Конструктором не подходит, всё написано руками....
А чем, по-твоему,
button1.OnClick:=clicks;
напечатано? Носом что-ли? Да и процедура Clicks определена в public-разделе, так что тоже вручную, в чем проблема?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.