Fórum arrastar um form #236376
06/06/2004
0
aeeee galera .. seguinte.. tenho um form.. borderstyle = bsnone... e uma iagem q pega o form inteiro.. eu queria q quando clicasse na imagem arrastasse o form... me passaru um codigo algo WMNChitTest mas num funciona no meu caso .. pois ele arasta o form.. soh q os button q eh image num pega... c alguem sobrer otro jeito
me falaaaaa
vlw .. t+
me falaaaaa
vlw .. t+
Slack
Curtir tópico
+ 0
Responder
Posts
06/06/2004
Carlosmielke
use o seguinte código no mousedown de cada image da tela
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
form1.Perform(Wm_Syscommand, $F012, 0);
end;
abraços
Carlos Mielke
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
form1.Perform(Wm_Syscommand, $F012, 0);
end;
abraços
Carlos Mielke
Responder
Gostei + 0
07/06/2004
Slack
aeee cara.. vlw mesmo . funcionou
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)