14.04.2010, 23:28 | #1 (permalink) |
Banned
Регистрация: 13.01.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Решите в Delphi
P.S. буду очень благодарен |
14.04.2010, 23:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно на форуме проблема уже решена, посмотрите в этих темах DELPHI Решите задачу на С++ |
15.04.2010, 00:08 | #2 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit1: TEdit; Panel1: TPanel; CheckBox1: TCheckBox; Button5: TButton; Button6: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if form1.CheckBox1.Checked then Form1.Edit1.Text:= Form1.Edit1.Text+'1' else Form1.Panel1.Caption:= Form1.panel1.Caption+'1' end; procedure TForm1.Button2Click(Sender: TObject); begin if form1.CheckBox1.Checked then Form1.Edit1.Text:= Form1.Edit1.Text+'2' else Form1.Panel1.Caption:= Form1.panel1.Caption+'2' end; procedure TForm1.Button3Click(Sender: TObject); begin if form1.CheckBox1.Checked then Form1.Edit1.Text:= Form1.Edit1.Text+'3' else Form1.Panel1.Caption:= Form1.panel1.Caption+'3' end; procedure TForm1.Button4Click(Sender: TObject); begin if form1.CheckBox1.Checked then Form1.Edit1.Text:= Form1.Edit1.Text+'4' else Form1.Panel1.Caption:= Form1.panel1.Caption+'4' end; procedure TForm1.Button5Click(Sender: TObject); begin Form1.Edit1.Text:=''; Form1.Panel1.Caption:=''; end; procedure TForm1.Button6Click(Sender: TObject); begin close(); end; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|