perform到底怎样用(详细例子)

Question

perform(wm_nextdlgctr,0,0);//光标移到下一个字段

Answer 1

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);//一个panel的消息过程，拖拖看看~~~HIHI~~~~~
end;

Answer 2

to rh(有花须酌酒)　
  这个例子好有趣，$f012是VK吗？如果我要查是什么键应该怎么查？

Answer 3

form1.perform(wm_nextdlgctl,0,0);
把焦点设置到下一个控件

Answer 4

抱歉抱歉，本来是想问broadcast（）到底该怎么用的，由于时间紧，一不小心打成了perform（），不过感谢三位的精彩回答，结贴的时候一律有分。最近我对broadcast（）有些迷惑，虽然知道它是用在向子控件进行广播上，但会产生什么效果，什么时候用一直想不通，请大虾解答一下。

Answer 5

举个例子，在窗体中放一个button和edit
procedure TForm1.Button1Click(Sender: TObject);
var
  m: TMessage;
begin
  m.Msg := wm_keydown;
  form1.Broadcast(m);
end;procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  edit1.text := 'keydown';
end;