Q&A
- 알려주세요 ?
TUpDown 컨트롤처럼 버튼을 누르고 있는동안
계속해서 작동을 할 수 있게 하는 방법이나 혹은 버튼 콤포넌트가
있는지 꼭 알려주세요 ..
부탁드립니다.
계속해서 작동을 할 수 있게 하는 방법이나 혹은 버튼 콤포넌트가
있는지 꼭 알려주세요 ..
부탁드립니다.
2
COMMENTS
-
-
안녕하세요. 최용일입니다.
타이머 하나 놔두고 마우스캡쳐하세요...
마우스캡쳐하지 않은 모든 컨트롤에서 될겁니다... (TButton, TBitButton같이
자체적으로 마우스캡쳐하는거 빼놓구..., TSpeedButton, ...등은 됨)
아래는 라벨을 아용한 예입니다.
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer1Timer(Sender: TObject);
private
MousePoint: TPoint;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Tag := 0;
Timer1.Enabled := False;
end;
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MousePoint := Point(X, Y);
SetCapture(Handle);
Timer1.Enabled := True;
end;
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := False;
ReleaseCapture;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
R: TRect;
begin
R := Label1.ClientRect;
if PtInRect(R, MousePoint) then
begin
Label1.Tag := Label1.Tag + 1;
Label1.Caption := IntToStr(Label1.Tag);
end;
end;
^^ 항상 즐코하세요...
초보 wrote:
> TUpDown 컨트롤처럼 버튼을 누르고 있는동안
> 계속해서 작동을 할 수 있게 하는 방법이나 혹은 버튼 콤포넌트가
> 있는지 꼭 알려주세요 ..
> 부탁드립니다.
(NOTICE) You must be logged in to comment on this post.
-
- Semo
- •
- 2001.10.31 23:10
- 1 COMMENTS
- /
- 0 LIKES
-
김훈•2001.11.01 01:42오픈소스 버젼이 아닌경우에는 로컬인터베이스는 8유저까지. 인터베이스 서버는 각 유저당 4 유저까지. ...
-
- 초보
- •
- 2001.10.31 23:01
- 2 COMMENTS
- /
- 0 LIKES
-
나두초보•2001.11.01 00:12코딩하려는 위쪽으로 Begin, End 의 갯수가 맞는지 확인하세요,. Begin 은 있는데 end 가 모자랄 경우 이 ...
-
이성찬•2001.11.01 01:36말그대로 선언은 되어있지만 구현된 코드가 없다는 말입니다. button1click 부분 코딩부분을 찾아서 없으...
-
- 델초보
- 2001.10.31 22:50
- 0 COMMENTS
- /
- 0 LIKES
-
- *^^*
- •
- 2001.10.31 22:38
- 3 COMMENTS
- /
- 0 LIKES
-
나두초보~~•2001.10.31 22:45*^^* wrote: > 1. 엑셀 출력할때 윈도우 98에서는 이렇게 사용했는데요.. > XL := CreateOleObject('Exc...
-
*^^*•2001.10.31 22:48감사합니다~ ^^ 1번에 대한 답변도.. 들으면 좋겠는데요.. ^^ 윈도우 2000에서는 아예.. 엑셀 출력이...
-
나두초보~~•2001.10.31 23:00우선.. 2000에서도 아무 문제 없이 데거든여.. 흠.. 혹시.. 2000 ㅡㅡ; 제가 작업해서 배포까지 했으니....
-
- 이쁜이
- •
- 2001.10.31 22:00
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.11.01 01:17사용하시는 DB가 오라클이라면 alter table tbl add (aaa number, ccc number(15));
-
- irookie
- •
- 2001.10.31 21:57
- 1 COMMENTS
- /
- 0 LIKES
-
irookie•2001.10.31 22:47Formclose()에 Action := caNone; 작업 표시줄에서 없애기 트레이 아이콘 등록하기. 끝 ^^; ...
-
- 최용일
- 2001.10.31 21:51
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 코로나
- 2001.10.31 21:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 이정한
- 2001.10.31 21:46
- 0 COMMENTS
- /
- 0 LIKES
-
- Jane
- •
- 2001.10.31 20:49
- 1 COMMENTS
- /
- 0 LIKES
-
나두초보~~•2001.10.31 22:42Jane wrote: > 안녕하세요. > ADO에 관한 내용은 책에도 간단히 나왔구요..... > 먼저 connnection을 맺...
-
- 코로나
- 2001.10.31 20:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.10.31 19:58
- 2 COMMENTS
- /
- 0 LIKES
TUpDown 컨트롤처럼 버튼을 누르고 있는동안 계속해서 작동을 할 수 있게 하는 방법이나 혹은 버튼 콤포넌트가 있는지 꼭 알려주세요 .. 부탁드립니다.-
나두초보•2001.11.01 02:45Rx 콤포넌트의 ExSpeedButton을 사용하세요. AllowTimer := True RepeatInterval := 1000 셋팅하시면 ...
-
최용일•2001.11.01 00:27안녕하세요. 최용일입니다. 타이머 하나 놔두고 마우스캡쳐하세요... 마우스캡쳐하지 않은 모든 컨...
-
- 코로나
- •
- 2001.10.31 19:55
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2001.10.31 22:03안녕하세요. 최용일입니다. 아래와 같이 레지스트리 셋팅하세요... [HKEY_CLASS_ROOT.vid] Default=...
-
코로나•2001.11.01 02:01최용일 wrote: > 안녕하세요. 최용일입니다. > > 아래와 같이 레지스트리 셋팅하세요... > > [HKEY_...
-
최용일•2001.11.01 04:17ParamStr, ParamCount를 이용하세면 됩니다... ParamStr(0) => 프로그램 패스 ParamStr(1) => 첫번째 ...
-
코로나•2001.11.01 18:40근데요 웹브라우저로 링크되어있는것은 레지스트리에 기록해도 바로 열리지 않고 저장할것인지 아님 바...
-
- 늘초보
- •
- 2001.10.31 19:18
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.11.01 01:33with table1 do begin Accept := (FieldByName('A').AsString = '0') and (FieldByName(...
-
- 이호림
- 2001.10.31 17:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 델피언
- •
- 2001.10.31 17:25
- 1 COMMENTS
- /
- 0 LIKES
-
김광철(그리움)•2001.10.31 17:28스플래쉬 Form에 Timer Control을 사용해보시죠! Timer Control Delay를 3초정도 지연되게 한후에, Time...
-
- 한심한넘의 부탁
- •
- 2001.10.31 17:00
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.10.31 21:46안녕하세요. 최용일입니다. 자료실에 mp3파일 플레이할수 있는 컴포넌트가 있을겁니다. 그거 한번 사용...
-
- 델초보쭈니
- 2001.10.31 20:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 박지원
- •
- 2001.10.31 09:35
- 1 COMMENTS
- /
- 0 LIKES
-
지나는 이•2001.10.31 11:18박지원 wrote: > AA, BB 라는 DB가 있습니다 > AA에는 번호, 코드 라는 필드가 있고 > BB에는 코드, 코...
AllowTimer := True
RepeatInterval := 1000
셋팅하시면 됩니다.
초보 wrote:
> TUpDown 컨트롤처럼 버튼을 누르고 있는동안
> 계속해서 작동을 할 수 있게 하는 방법이나 혹은 버튼 콤포넌트가
> 있는지 꼭 알려주세요 ..
> 부탁드립니다.