arrastar um form
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
Curtidas 0
Respostas
Carlosmielke
06/06/2004
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
GOSTEI 0
Slack
06/06/2004
aeee cara.. vlw mesmo . funcionou
GOSTEI 0