|
|
 | Double click på TShape
Fra : Harald |
Dato : 19-02-04 15:00 |
|
Hej
Jeg har brug for at kunne fange et dobbelt klik på en TShape, nogen ideer
til hvordan man fixer det?
Jeg bruger Delphi 7 prof.
Mvh
HK
| |
 David Konrad (19-02-2004)
| Kommentar
Fra : David Konrad |
Dato : 19-02-04 15:07 |
|
"Harald" <news10@-REMOVE-THIS-kroning.dk> wrote in message
news:4034c164$0$27379$edfadb0f@dread16.news.tele.dk...
> Hej
>
> Jeg har brug for at kunne fange et dobbelt klik på en TShape, nogen ideer
> til hvordan man fixer det?
>
> Jeg bruger Delphi 7 prof.
Laver en klasse der arver fra TShape og som responderer på
wm_lbuttondblclick-messagen?
class TEtellerandet(TShape)
protected
procedure wmdblclick(var message:TMessage); message WM_LBUTTONDBLCLK;
end;
procedure TEtellerandet.wmdblclick;
begin
messagedlg('dbl-click',mtInformation,[mbOk],0);
inherited;
end;
utestet - men ideen skulle være god nok.
| |
Harald (19-02-2004)
| Kommentar
Fra : Harald |
Dato : 19-02-04 15:44 |
|
"David Konrad" <david_konrad@hotmail.com> skrev i en meddelelse
news:c12g37$nqu$1@sunsite.dk...
> "Harald" <news10@-REMOVE-THIS-kroning.dk> wrote in message
> news:4034c164$0$27379$edfadb0f@dread16.news.tele.dk...
> > Hej
> >
> > Jeg har brug for at kunne fange et dobbelt klik på en TShape, nogen
ideer
> > til hvordan man fixer det?
> >
> > Jeg bruger Delphi 7 prof.
>
> Laver en klasse der arver fra TShape og som responderer på
> wm_lbuttondblclick-messagen?
>
> class TEtellerandet(TShape)
> protected
> procedure wmdblclick(var message:TMessage); message WM_LBUTTONDBLCLK;
> end;
>
> procedure TEtellerandet.wmdblclick;
> begin
> messagedlg('dbl-click',mtInformation,[mbOk],0);
> inherited;
> end;
>
> utestet - men ideen skulle være god nok.
Ja jeg fik samme ide kort efter min post, jeg havde først tænkt på en masse
med timer og lign. men løsningen var jo ganske enkelt og det virker fint.
Mvh
HK
| |
|
|