如何完成没有控件的程序，比如：要完成buttonclick的操作，但不用任何控件(100分)

D

deari

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #1

[?]如何完成没有控件的程序，比如：要完成buttonclick的操作，但不用任何控件?

 

T

tianjh007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #2

自己指定啊
如：
procedure TForm1.BtnClick(Sender: TObject);
begin
ShowMessage('');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
BtnOK: TButton;
begin
BtnOK :=TButton.Create(nil);
BtnOK.Parent :=Form1;
BtnOK.OnClick :=BtnClick;
end;

 

S

skyweb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #3

// 例：当用户在Form客户区的(100,100)-(200,200)范围点击鼠标时，显示"Hello, World";
// 除了Form1以外，并没有使用别的控件，当然你也可以连TForm都不要：）
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (X>=100) and (X<=200) and (Y>=100) and (Y<=200) then
Showmessage('Hello, World!');
end;

 

A

Afei1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #4

同意tianjh007,

 

W

wangdalixy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-25

• #5

使用鼠标单击事件响应函数.

 

Z

zzutrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-26

• #6

需要注意的是 BtnClick 只能放在 创建按纽的单元(unit)中，不然编译器好象变提示错误的指针。