IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Проблема выполнения кнопки, Не работает :(
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


Доброго времени суток. У меня проблема связанная с описанием кнопки. Задача поставленна что бы вручную всё прописывать. Вид весь я прописал, а вот выполнение кнопки при нажатии никак не могу сделать, помогите пожалуйста.


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.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 396
Пол: Мужской

Репутация: -  9  +


Вот такой примерчик


Прикрепленные файлы
Прикрепленный файл  primer.rar ( 2.85 килобайт ) Кол-во скачиваний: 186


--------------------
Objective-C, Unity3d
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


Конструктором не подходит, всё написано руками....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
Конструктором не подходит, всё написано руками....
А чем, по-твоему,
button1.OnClick:=clicks;
напечатано? Носом что-ли? Да и процедура Clicks определена в public-разделе, так что тоже вручную, в чем проблема?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.03.2024 17:15
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name