»çõ¿Õ (±èÁ¦¼º)
|
|
procedure TForm2.btnVolumeUpMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := true;
end;
procedure TForm2.btnVolumeUpMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := false;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
// ¿©±â¼ ´Ï°¡ ÇÏ°í ½ÍÀº°É Ç϶õ¸»À̾ß~~~~~~~~~~~
Memo1.Lines.Add('pressed..........');
end;
°£´ÜÇÏÁê? 2019-06-17 ¿ÀÈÄ 5:16:32
|
|