rt!
解决方案 »
- hook api 怎么入门呢? 请高手 或者自学经历过的人进来指点一二...谢谢........................
- 各路高手:请帮看看下面的代码有没有问题,谢谢!
- 请教高手,一个查询的问题
- 向大家请教一个问题!!!(在线)
- BCB ListView对item中的行修改颜色
- 急死我了!一个触发器的问题!麻烦进来帮个忙吧~
- 要滚动条
- 请问各位,Delphi5、6和7哪个比较好?
- delphi中那个pooler例子中TPooler,TPoolManager的调用机制是怎样的?
- 哪里能下载ADO的最新版本,如何安装?
- 鼠标移动时怎么得到DBGrid方格中的内容?
- sql語句寫入delphi中
想实现的功能是什么?
BevelOuter = bvNone
TabStop = True
OnEnter = Panel1Enter
OnExit = Panel1Exit
object Image1: TImage
OnMouseDown = Image1MouseDown
end
end
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TImage(Sender).Parent.SetFocus;
end;procedure TForm1.Panel1Enter(Sender: TObject);
begin
Caption := 'Enter';
end;procedure TForm1.Panel1Exit(Sender: TObject);
begin
Caption := 'Exit';
end;