38 lines
660 B
Plaintext
38 lines
660 B
Plaintext
unit Sendmsg;
|
|
|
|
interface
|
|
|
|
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
|
|
StdCtrls, nwMess, ExtCtrls;
|
|
|
|
type
|
|
TBtnBottomDlg4 = class(TForm)
|
|
OKBtn: TBitBtn;
|
|
CancelBtn: TBitBtn;
|
|
Bevel1: TBevel;
|
|
Edit1: TEdit;
|
|
Edit2: TEdit;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
procedure OKBtnClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
BtnBottomDlg4: TBtnBottomDlg4;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TBtnBottomDlg4.OKBtnClick(Sender: TObject);
|
|
begin
|
|
SendMessageToUser(Edit1.Text, Edit2.Text);
|
|
Close;
|
|
end;
|
|
|
|
end.
|