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.
procedure TForm1.Panel2MouseLeave(Sender: TObject);
begin
Panel2.Caption := '';
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;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.