Информация от нажатия кнопок на одной панели должна выводится на другой панели

@Alexandr53 · Регистрация: 02.04.2015

Студворк — интернет-сервис помощи студентам

Добрый день и удачи Всем! Помогите пожалуйста. Я начинающий программист в Delphi7.Проблема заключается в следующем:
На панели номер 1 имеются 3 кнопки (Button1 Button2 Button3) для вывода цифр. Рядом создана новая панель номер 2. На панели номер 2 имеются два окна Edit1 и Edit2 и две кнопки Button1."пред пок". Button2

Цель программы:
при нажатии кнопки Button1 "пред пок" информация с цифровых кнопок первой панели должны отражаться в окне
Edit1 второй панели, а при нажатии Button2 " тек пок" информация с цифровых кнопок первой панели должны отражаться в окне
Edit2 второй панели. Т.е цифровая информация кнопок с одной панели должна отражаться в окнах второй панели
если кликнуть по кнопкам "пред пок" или " тек пок" на ходящихся на второй панели.
Пожалуйста не откажите в помощи и если Вас не затруднит то по подробней Я ещё только учусь програмировать.
СПАСИБО.

@Arik100 · 19.08.2015, 16:10

Что такое - «информация с цифровых кнопок»?

@Alexandr53 · 20.08.2015, 00:11 **[ТС]**

«информация с цифровых кнопок»? это то,что при нажатии на кнопку 1,2 или 3 в окне Edit1 или Edit2
прописываются цифры 1,2,или 3 т.е как в калькуляторе.

@Sfairath · 20.08.2015, 08:46

Ну так а в чем проблема. Пишешь на этих кнопках цифры свои, привязываешь все кнопки к 1 обработчику событий, а в обработчике делаешь что-то типа

Delphi

var
  b: TButton;
begin
  b := Sender as TButton;
  Edit1.Text := Edit1.Text + b.Caption;
end;

И вообще, много текста не означает, что задача объяснена доходчиво... Я, например, нихрена не понял из поста №1

@Puporev · 20.08.2015, 09:16

Сообщение от Sfairath

Я, например, нихрена не понял из поста №1

А я так и из постов №1+№3...

@Alexandr53 · 20.08.2015, 23:03 **[ТС]**

А что не понятного? информация от нажатия кнопок на одной панели должна выводится в окнах Edit1 или Edit2
другой панели.

@northener · 21.08.2015, 00:14

Сообщение от Alexandr53

А что не понятного?

Важно что непонятно именно тебе?
P.S. Меня лично смущают "пред пок" и " тек пок". Вероятно под этими сокращениями скрыт какой-то глубокий смысл известный одному тебе.

@D1973 · 21.08.2015, 06:56

В порядке бреда предположу:

код

Delphi

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var E : TEdit;
begin
 if (Sender as TButton).Tag = 0 then E := Edit1 else E := Edit2;
 E.Text := Label1.Caption;
 Label1.Caption := '';
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 Label1.Caption := Label1.Caption + (Sender as TSpeedButton).Caption;
end;
 
end.

@D1973 · 21.08.2015, 07:05

Или так...

Еще один код

Delphi

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    RadioGroup1: TRadioGroup;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var E : TEdit;
begin
 if RadioGroup1.ItemIndex = -1
  then begin
        ShowMessage('Не указано, какой "ПОК" использовать!!!');
        exit;
       end;
 if RadioGroup1.ItemIndex = 0 then E := Edit1 else E := Edit2;
 E.Text := E.Text + (Sender as TSpeedButton).Caption;
end;
 
end.

@Alexandr53 · 21.08.2015, 10:26 **[ТС]**

Доброе утро D1973! СПАСИБО огромное за помощь, я Вам очень благодарен.('пред.пок''тек.пок' это предыдущие показания и текущие показания) ещё раз огромное спасибо за помощь.

Добавлено через 3 часа 4 минуты
Доброе утро! Извините пожалуйста! я попробовал скопировать Ваш код, но он у меня не работает т.е нажимаю на все кнопки ,но ни какой информации не выводится. Помогите пожалуйста
это код который у меня:

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    btn1: TSpeedButton;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    btn5: TSpeedButton;
    btn6: TSpeedButton;
    btn7: TSpeedButton;
    btn8: TSpeedButton;
    btn9: TSpeedButton;
    btn10: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
 
  procedure Button1Click(Sender: TObject);
  procedure SpeedButton1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 procedure TForm1.Button1Click(Sender: TObject);
var E : TEdit;
begin
 if (Sender as TButton).Tag = 0 then E := Edit1 else E := Edit2;
 E.Text := Label1.Caption;
 Label1.Caption := '';
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 Label1.Caption := Label1.Caption + (Sender as TSpeedButton).Caption;
end;
 
end.

@Alexandr53 · 21.08.2015, 10:34 **[ТС]**

Информация от нажатия кнопок на одной панели должна выводится на другой панели

@D1973 · 21.08.2015, 10:51

1. Обработчик события SpeedButton1Click создай, а не просто скипируй: просто сделай двойной клик по кнопке с цифрой 1, и уже в нем, между begin и end пишешь:

Delphi

1	Label1.Caption := Label1.Caption + (Sender as TSpeedButton).Caption;

2. Назначь через Object Inspector этот обработчик для всех конпок с цифрами
3. Свойству Tag кнопки Button2 присвой значение 1 и так же назначь обработчик события OnClick от кнопки Button1

@Puporev · 21.08.2015, 10:59

Сообщение от Alexandr53

я попробовал скопировать Ваш код, но он у меня не работает т.е нажимаю на все кнопки ,но ни какой информации не выводится.

Так код нужно не только скопировать, но и инициировать все процедуры в нем.
Например при не запущенной программе кликнуть 2 раза на кнопках Button1 и SpeedButton1

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	21.08.2015, 10:59	13
	Сообщение от Alexandr53 я попробовал скопировать Ваш код, но он у меня не работает т.е нажимаю на все кнопки ,но ни какой информации не выводится. Так код нужно не только скопировать, но и инициировать все процедуры в нем. Например при не запущенной программе кликнуть 2 раза на кнопках Button1 и SpeedButton1 0

@Alexandr53 0 / 0 / 0 Регистрация: 02.04.2015 Сообщений: 5
		1
	Информация от нажатия кнопок на одной панели должна выводится на другой панели 19.08.2015, 16:03. Показов 1146. Ответов 12 Метки нет (Все метки) Добрый день и удачи Всем! Помогите пожалуйста. Я начинающий программист в Delphi7.Проблема заключается в следующем: На панели номер 1 имеются 3 кнопки (Button1 Button2 Button3) для вывода цифр. Рядом создана новая панель номер 2. На панели номер 2 имеются два окна Edit1 и Edit2 и две кнопки Button1."пред пок". Button2 Цель программы: при нажатии кнопки Button1 "пред пок" информация с цифровых кнопок первой панели должны отражаться в окне Edit1 второй панели, а при нажатии Button2 " тек пок" информация с цифровых кнопок первой панели должны отражаться в окне Edit2 второй панели. Т.е цифровая информация кнопок с одной панели должна отражаться в окнах второй панели если кликнуть по кнопкам "пред пок" или " тек пок" на ходящихся на второй панели. Пожалуйста не откажите в помощи и если Вас не затруднит то по подробней Я ещё только учусь програмировать. СПАСИБО. 0

@Arik100 59 / 60 / 37 Регистрация: 24.07.2015 Сообщений: 224
	19.08.2015, 16:10	2
	Что такое - «информация с цифровых кнопок»? 0

@Alexandr53 0 / 0 / 0 Регистрация: 02.04.2015 Сообщений: 5
	20.08.2015, 00:11 [ТС]	3
	«информация с цифровых кнопок»? это то,что при нажатии на кнопку 1,2 или 3 в окне Edit1 или Edit2 прописываются цифры 1,2,или 3 т.е как в калькуляторе. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	20.08.2015, 09:16	5
	Сообщение от Sfairath Я, например, нихрена не понял из поста №1 А я так и из постов №1+№3... 0

@Alexandr53 0 / 0 / 0 Регистрация: 02.04.2015 Сообщений: 5
	20.08.2015, 23:03 [ТС]	6
	А что не понятного? информация от нажатия кнопок на одной панели должна выводится в окнах Edit1 или Edit2 другой панели. 0

@northener пофигист широкого профиля 4706 / 3142 / 857 Регистрация: 15.07.2013 Сообщений: 18,115
	21.08.2015, 00:14	7
	Сообщение от Alexandr53 А что не понятного? Важно что непонятно именно тебе? P.S. Меня лично смущают "пред пок" и " тек пок". Вероятно под этими сокращениями скрыт какой-то глубокий смысл известный одному тебе. 0

@Alexandr53 0 / 0 / 0 Регистрация: 02.04.2015 Сообщений: 5
	21.08.2015, 10:34 [ТС]	11
	0

Опции темы