Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Componente arrastável Encontre agências semelhantes


avr555   (2001-12-17 19:54) [0]

Minha pergunta é:
Eu quero fazer um componente que possa ser "arrastado" em forma.
Como tal componente, decidi usar o VirtualTreeView
Eu uso três eventos para arrastar e soltar: OnMouseDown, OnMouseMove, OnMouseUp.

Quando eu usei o CheckListBox como um componente arrastado, a fim de evitar que o componente quebrasse, chamei a função SetCapture (self.Handle) e tudo funcionou.
E ao alternar para o VirtualTreeView depois de chamar SetCapture (self.Handle), o componente para de se mover. Se você não chamar SetCapture (self.Handle), então tudo funciona, apenas o componente “quebra” do ponteiro ao arrastar.

O que fazer?



DK   (2001-12-19 02:16) [1]

Tente inserir no manipulador OnMouseDown:
var Controle: TControl; começar tente Controle: = remetente como TControl; ReleaseCapture Control.Perform (WM_SYSCOMMAND, $ F012, 0); finalmente fim;
end;



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.55 MB
Hora: 0.021 c
14-22374
Nikols
2001-11-01 16:03
2002.01.08
Como os programadores descansam? E quando?


1-22028
tovSuhov
2001-12-18 12:16
2002.01.08
Talvez alguém saiba ...


1-22026
Romualds Stashans
2001-12-18 11:07
2002.01.08
Como através Delphi pode executar * .exe com ....


3-21955
kalinka17
2001-12-03 13:16
2002.01.08
Ajude-me a encontrar o DBTreeView =)


14-22342
Denso
2001-11-05 18:52
2002.01.08
Competição! Papel de parede para o jogo (local) Sea Fight!





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol