Консультация онлайн # 161059

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Xzibitcar
Дата: 21.02.2009, 12:04 Консультация неактивна
Поступило ответов: 2
Уважаемые экспеты помогите решить задачи по делфи..

1)Поместить на форму два поля ввода и кнопку "Обменять". При нажатии на кнопку текст из первго поля ввода переписывается во второе,а из второго в первое.

2) Поместить на форму два поля ввода и кнопку со стрелкой "»". ПРи нажатии на кнопку текст из левого поля ввода переписывается к правое, при этом стрелка на конце изменяет свое направление. Если теперь нажать на кнопку еще раз, то текст из правого поля переписывается в левое, а стрелка снова изменит свое напрваление.

3)Поместить на ворму панель, два поля ввода и кнопку "Объединить". ПРи нажатии на кнопку текст из первого поля ввода через пробел объединить с тестом из второго поля и выводится на панель.

4) поместить на форму панель без текста. ПРи движение мышки над панелью на ней появляется текст "Ой.шекотно!". ПРи уводе мышки с панели текст исчезает.

Сделанные программы..отправьте пожалуйста на этот майл iverson_3@bk.ru или на этот rdthyth@bk.tu
Приложение:

Ответ # 1, DrBear (Посетитель)

Здравствуйте, Xzibitcar!
Все просто. Пример Ваших задач можете взять здесь. Текст модуля в приложении

Приложение:


DrBear

Посетитель
21.02.2009, 12:23
Нет оценки ответа

Ответ # 2, Евгений/Genia007/ (Профессионал)

Здравствуйте, Xzibitcar!
Могу предложить свой вариант решения Ваших задач. все они в одном проекте, вот код
Код
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Button3: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s:= Edit1.Text;
  Edit1.Text:= Edit2.Text;
  Edit2.Text:= s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Button2.Caption = '>>' then
    begin
      Edit4.Text:= Edit3.Text;
      Edit3.Text:= '';
      Button2.Caption:= '<<';
    end
  else
    begin
      Edit3.Text:= Edit4.Text;
      Edit4.Text:= '';
      Button2.Caption:= '>>';
    end

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Panel1.Caption:= Edit5.Text + ' ' + Edit6.Text;
end;

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel2.Caption:= 'Ой.шекотно!';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel2.Caption:= '';
end;

end.

, а весь проект по адресу здесь.

Евгений/Genia007/

Профессионал
21.02.2009, 13:08
Нет оценки ответа

Мини-форум консультации # 161059

Евгений/Genia007/

Профессионал

ID: 153662

177232

= общий =    21.02.2009, 13:14
Для DrBear, проверял Ваш код, почему то процедура
Код
procedure TForm1.Panel2MouseLeave(Sender: TObject);
begin
  Panel2.Caption := '';
end;
отказывается функционировать, надпись на панеле не пропадает. Прикольно нет ошибок и не работает.
=====
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
неизвестный

177236

= общий =    21.02.2009, 13:35
всем спасибо...а не погли скинуть готовую программу..чтоб её открыть в делфи??
Евгений/Genia007/

Профессионал

ID: 153662

177241

= общий =    21.02.2009, 14:31
весь проект по адресу URL >>здесь.
=====
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
неизвестный

177265

= общий =    21.02.2009, 18:09
спасибо всем за помощь!!!!!
неизвестный

179591

= общий =    14.03.2009, 18:49
А вы не могли бы ещё написать программу в делфи...нужно
Поместить на форму кнопку "Случайный выбор цвета". ПРи нажатии на кнопку цвет формы изм случайным образом....заранее спасибо!!!!!!!! smile
Евгений/Genia007/

Профессионал

ID: 153662

179597

= общий =    14.03.2009, 19:02
Получается что то вроде этого
Код
procedure TForm1.Button3Click(Sender: TObject);
begin
  form1.Color:= random(255) shl 16 or random(255) shl 8 or random(255);
end;
=====
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
неизвестный

179599

= общий =    14.03.2009, 19:09
спасибо большое..работает!!!!
неизвестный

179601

= общий =    14.03.2009, 19:13
а что означает shl????
Евгений/Genia007/

Профессионал

ID: 153662

179604

= общий =    14.03.2009, 19:23
Логические поразрядные операции работают с целыми числами и оперируют с их двоичными представлениями, т.е. работают с двоичными разрядами операндов.


Обозначение Операция Типы операндов Тип результата Пример
not поразрядное отрицание целый целый not X
and поразрядное И целый целый X and Y
or поразрядное ИЛИ целый целый X or Y
xor поразрядное исключающее ИЛИ целый целый X xor Y
shl поразрядный сдвиг влево целый целый X shl 2
shr поразрядный сдвиг вправо целый целый Y shl I
Операции выполняются поразрядно. Например:


X 001101
Y 100001
X or Y 101101
При поразрядных операциях действуют следующие правила.
Результат операции not имеет тот же тип, что и ее операнд.
Результат операций and, or, xor имеет наименьший целый тип, включающий все возможные значения типов обоих операндов.
Выражения X shl Y и X shr Y сдвигают значение X влево или вправо на Y битов. Это эквивалентно умножению или делению X на 2Y. Результат имеет тот же тип, что X.
=====
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
неизвестный

179607

= общий =    14.03.2009, 19:35
СПАСИБО большое
при выполнении лаб.работы у меня возникла вопрос..у меня не получается перетащить содержимое из 1 поля во 2..и так что бы в 1 было пусто....
вот задание Поместить на форму два поля ввода и кнопку "Переслать". При нажатии на кнопку текст из первого поля ввода переписывается во второе,то есть исчезает в первом поле и появл во втором.
Евгений/Genia007/

Профессионал

ID: 153662

179608

= общий =    14.03.2009, 19:45
такой вопрос уже поднимался вот кусок кода из него
Код
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Button2.Caption = '>>' then
    begin
      Edit4.Text:= Edit3.Text;
      Edit3.Text:= '';
      Button2.Caption:= '<<';
    end
  else
    begin
      Edit3.Text:= Edit4.Text;
      Edit4.Text:= '';
      Button2.Caption:= '>>';
    end

end;
=====
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
неизвестный

179614

= общий =    14.03.2009, 20:01
это не то...это совсем др вопрос
Евгений/Genia007/

Профессионал

ID: 153662

179616

= общий =    14.03.2009, 20:13
Он работает как Вы написали

вот задание Поместить на форму два поля ввода и кнопку "Переслать". При нажатии на кнопку текст из первого поля ввода переписывается во второе,то есть исчезает в первом поле и появл во втором.

, при нажатии на кнопку содержимое из edit3 переписывается в edit4, а в edit3 стирается,
=====
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.