?? mail.~pas
字號:
unit mail;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons,shellapi;
type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
memo1: TMemo;
Edit1: TEdit;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses server;
{$R *.DFM}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
form1.serversocket1.Socket.sendtext('mail1'+edit1.text);
//memo1.Lines.Add('server:'+form1.serversocket1.Socket.ReceiveText);
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
// SetWindowPos(form2.handle,HWND_TOPmost,0,0,0,0,SWP_showWINDOW);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -