| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
проблема
cfg © (2002-08-21 05:39:00)сюды кидай
Ev_genus (2002-08-21 06:02:00) [1]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.
cfg (2002-08-21 05:58:00) [2]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.
cfg (2002-08-21 05:56:00) [3]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.
Ev_genus (2002-08-21 05:42:00) [4]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.
| |
