사이사이
(문호상)
|
|
델파이로 만든다면 아래와 같이 클래스핵을 이용해서 손쉽게 만들수 있을것 같습니다
TButton = class(Vcl.StdCtrls.TButton)
public
procedure Click; override;
end;
TForm5 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
Sleep(1000);
Memo1.Lines.Add('click');
end;
{ TButtonHelper }
procedure TButton.Click;
begin
Self.Enabled:= False;
try
inherited Click;
finally
Self.Enabled:= True;
end;
end;
2020-03-11 오후 10:03:59
|
|
| |
사이사이
(문호상)
|
|
클래스 핵을 관리하는 유닛을 따로 만들어서 공용으로 이용해도 좋구여
2020-03-11 오후 10:09:11
|
|
| |
주정섭
(주정섭)
|
|
사이사이님. 그 방법으로 중복 클릭을 막을 수가 없습니다. 버튼을 연속 클릭하면 중복으로 클릭 이벤트가 실행됩니다.
첫번째 클릭으로 버튼이 비활성화된 상태에서 연속 클릭해 보세요, 연속으로 실행됩니다. Sleep(3000) 정도로 변경하고 테스트해보세요.
2020-03-11 오후 10:50:17
|
|
| |
주정섭
(주정섭)
|
|
임포스터 클래스(클래스 핵) 방식은 퀀텀같은 다른 서드 파티 버튼들에 대해서 동작하지 않는 문제도 있습니다.
2020-03-11 오후 11:00:20
|
|
| |
틱톡
(이장우)
|
|
click 에 넣지않고 lbuttondown 이벤트에 넣으면 간단할거 같은데
procedure TButton.lbuttondown;
begin
if enabled = false then exit;
Self.Enabled:= False;
inherited;
end;
procedure TButton.Click;
begin
if enabled = false then exit;
try
inherited Click;
finally
Self.Enabled:= True;
end;
end;
2020-03-11 오후 11:03:37
|
|
| |
사이사이
(문호상)
|
|
오, 그렇네요. 이벤트가 큐에서 안빠져나갔나 보네요.
쓰레드라도 써서 쌓인큐를 비워내야 하나봅니다.
procedure TButton.Click;
begin
Self.Enabled:= False;
try
inherited Click;
finally
TThread.CreateAnonymousThread(procedure
begin
Sleep(100);
TThread.Queue(nil, procedure
begin
Self.Enabled:= True;
end);
end).Start;
end;
end;
2020-03-11 오후 11:05:09
|
|
| |
사이사이
(문호상)
|
|
주정섭님, 임포스터 클래스는 서드파티버튼들에겐 사용하지 못한다는 말씀은
불가하다는 말씀이신가요? 아님 클래스 종류별로 작업을 해야한다는 말씀이신가요?
후자라고 생각되는데 후자가 맞다면 초반에 공들여서 임포스터 클래스를 만들어서 사용하는게 충분히 공들일만한 가치가 있어보입니다.
2020-03-12 오전 12:34:50
|
|
| |
주정섭
(주정섭)
|
|
임포스터 클래스를 사용하려면 버튼 클래스 종류별로 작업을 해야한다는 말입니다.
그리고 위 방법은 불행스럽게도 델파이 7에서는 사용할 수 없는 방법인지라, 내 책에서 설명한것 처럼 타이머를 사용하는 것이 더 좋습니다.
2020-03-12 오전 12:39:37
|
|
| |
주정섭
(주정섭)
|
|
그리고 TThread.CreateAnonymousThread()안의 Sleep(100) 에서 100이란 숫자가 좀 애매한데, 매우 빠른 CPU라면 똑같은 문제가 있을수도 있지 않을까 모르겠네요.
그런데 버튼말고도 메뉴나 다른 콘트롤의 이벤트에서도 비슷한 문제가 발생할 수 있습니다.
2020-03-12 오전 1:00:03
|
|
| |
늦바람
(홍승일)
|
|
저는 좀 무식한 방법일지 모르지만 아래와 같이 사용하고 있습니다.
procedure TButton.Click;
var
iClick : cardinal;
begin
iClick := GetTickCount;
if fLastClick + 1000 > iClick then
Exit;
fLastClick := iClick;
inherited Click;
end;
Form Unit에서 버튼 클릭 이벤트에 직접 위의 코드를 사용하기도 하고요.
2020-03-15 오후 3:08:30
|
|
| |
자몽잎
(초보개발자)
|
|
혹시나 해서 파이어몽키 프레임웍에서도 동일한 이슈가 있나 테스트 해보니 문제없이 한번만 실행되네요
2020-03-16 오전 9:30:37
|
|
| |
자몽잎
(초보개발자)
|
|
이런 방법도 있을거 같습니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled := False;
Memo1.Lines.Add('Click Event');
Sleep(2000);
Application.ProcessMessages;
Button1.Enabled := True;
end;
2020-03-16 오전 10:52:06
|
|
| |
할짝이
(김민수)
|
|
자몽잎님 코드를 약간 수정하면 Button이라기보단
해당 콤포넌트가 TObject로 오니깐 Sender 로 처리하셔도됩니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
Sender.Enabled := False; // 안되면 (Sender as Button).Enabel := False;
try
// TODO: somthing
finally
Sender.Enabled := True;
end;
2020-03-23 오후 1:15:32
|
|
| |
