Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];

Вниз

проблема   Найти похожие ветки 

← →
cfg   (2002-08-21 05:39) [0]

сюды кидай

---

← →
Ev_genus   (2002-08-21 05:42) [1]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Edits:array of TEdit;
S:string;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
i:byte;
begin
SetLength(Edits, 20);
for i:=0 to High(Edits) do begin
Edits[i]:=TEdit.Create(nil);
with Edits[i] do begin
Parent:=Form1;
Left:=10;
Top:=(Height+2)*i;
Show;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to High(Edits) do if Edits[i].Text<>"" then S:=S+Edits[i].Text
end;

end.

---

← →
cfg   (2002-08-21 05:56) [2]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, Tabnotbk, ShellAPI;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TForm1 = class(TForm)

Label1: TLabel;
Label2: TLabel;

Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
TabbedNotebook1: TTabbedNotebook;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Button3: TButton;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Button4: TButton;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit25: TEdit;
Edit26: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Edit29: TEdit;
Edit30: TEdit;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
Edit35: TEdit;
Edit36: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Edits:array of TEdit;
S:string;

implementation
{$R *.DFM}
uses Unit2;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
i:byte;
begin
SetLength(Edits, 20);
for i:=0 to High(Edits) do begin
Edits[i]:=TEdit.Create(nil);
with Edits[i] do begin
Parent:=Form1;
Left:=10;
Top:=(Height+2)*i;
Show;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.SelectAll;
Edit1.CopyToClipboard;
Edit1.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);

sleep(3000);
Edit2.SelectAll;
Edit2.CopyToClipboard;
Edit2.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);
sleep(3000);
Edit3.SelectAll;
Edit3.CopyToClipboard;
Edit3.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);
sleep(3000);
end;

end.

---

← →
cfg   (2002-08-21 05:58) [3]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, Tabnotbk, ShellAPI;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
TabbedNotebook1: TTabbedNotebook;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Button3: TButton;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Button4: TButton;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit25: TEdit;
Edit26: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Edit29: TEdit;
Edit30: TEdit;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
Edit35: TEdit;
Edit36: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}



procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
чтоб копировал текст во всех 20 эдит
Edit1.SelectAll;
Edit1.CopyToClipboard;
Edit1.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);

sleep(3000);
Edit2.SelectAll;
Edit2.CopyToClipboard;
Edit2.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);
sleep(3000);
Edit3.SelectAll;
Edit3.CopyToClipboard;
Edit3.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);
sleep(3000);
end;

end.

---

← →
Ev_genus   (2002-08-21 06:02) [4]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, Tabnotbk, ShellAPI;

type
TForm1 = class(TForm)
Button1: TButton;
TabbedNotebook1: TTabbedNotebook;
Button3: TButton;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Edits:array of TEdit;
S:string;

implementation
{$R *.DFM}
uses Unit2;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
i:byte;
begin
SetLength(Edits, 20);
for i:=0 to High(Edits) do begin
Edits[i]:=TEdit.Create(nil);
with Edits[i] do begin
Parent:=Form1;
Left:=10;
Top:=(Height+2)*i;
Show;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.SelectAll;
Edit1.CopyToClipboard;
Edit1.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);

sleep(3000);
Edit2.SelectAll;
Edit2.CopyToClipboard;
Edit2.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);
sleep(3000);
Edit3.SelectAll;
Edit3.CopyToClipboard;
Edit3.SetFocus;
ShellExecute(0, nil, PChar("hotmail.html"), nil, nil, 0);
sleep(3000);
end;

end.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.007 c