outport(0,0);
outport(0,1);     

請問如何讓滑鼠壓著buttom鍵時 不停重覆的質行程式內的動作!

Hi yangdada,    定義一個全域變數，然後在該 BUTTON 的 OnMouseDown & OnMouseUp 作一些處理

    ...
type
  TForm1 = class(TForm)
    Button1: TButton;
...
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    T : Boolean;
...    procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    begin
      T := True;
      while T do
        begin
          // Do something
          .....
          //
          Application.ProcessMessages;
        end;
    end;
end;    procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    T := False;
end;
...

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman