Помощь - Поиск - Пользователи - Календарь
Полная версия: Проблема выполнения кнопки
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Single
Доброго времени суток. У меня проблема связанная с описанием кнопки. Задача поставленна что бы вручную всё прописывать. Вид весь я прописал, а вот выполнение кнопки при нажатии никак не могу сделать, помогите пожалуйста.


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QStdCtrls,StdCtrls, Buttons;

type
TForm1 = class(TForm)
BitBtn1: TButton;
BitBtn2: TButton;
procedure BitBtn1OnClick(Sender: TObject);
procedure BitBtn2OnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);



private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
BitBtn1, BitBtn2 : TButton;
Edit1, Edit2, Edit3: TEdit;
Label1, Label2, Label3, Label4, Label5,Label6,Label7,Label8: TLabel;

implementation

{$R *.dfm}

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
Вот такой примерчик
Single
Конструктором не подходит, всё написано руками....
volvo
Цитата
Конструктором не подходит, всё написано руками....
А чем, по-твоему,
button1.OnClick:=clicks;
напечатано? Носом что-ли? Да и процедура Clicks определена в public-разделе, так что тоже вручную, в чем проблема?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.