| View previous topic :: View next topic |
| Author |
Message |
Xeleron
Grandmaster Cheater
 Reputation: 0
Joined: 05 Jan 2008
Posts: 652
|
 Posted: Thu Dec 11, 2008 1:47 pm Post subject: [Solved][Delphi7] Custom drag and drop form |
 |
|
hi ,
i am totally new to delphi .
but how can i make a custom form?
by that i mean i know how to get it transperant , and select no border arround it xD.
but how can i make a sort of custom bar where i can drag and drop the whole form?
_________________
why Hitler? why did you had to pm me that child porn?
btw Hitler, Shave your pubic hair
PM Me for Hitler's Nude pics
Last edited by Xeleron on Fri Dec 12, 2008 9:07 am; edited 1 time in total |
|
| Back to top |
|
 |
Anden100
Grandmaster Cheater
![]() Reputation: 0
Joined: 20 Apr 2007
Posts: 668
|
| Posted: Thu Dec 11, 2008 2:28 pm Post subject: |
|
|
This question (or a very similar one), was asked a few days ago:
http://forum.cheatengine.org/viewtopic.php?t=330723
Bartil posted this solution:
| Code: | ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,61458,0); |
And Reak posted this solution:
| Code: | procedure TForm.OnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
SetCaptureControl(nil);
Perform(wm_SysCommand, sc_Move or 1, 0);
end;
end; |
|
|
| Back to top |
|
|
Wintermoot
Expert Cheater
 Reputation: 0
Joined: 08 Nov 2007
Posts: 198
|
| Posted: Thu Dec 11, 2008 8:14 pm Post subject: |
|
|
Reaks solution is the best.
Once again, I suggest people google. Honestly, the first result on google gave me the answer back when I did Delphi...
|
|
| Back to top |
|
|
Xeleron
Grandmaster Cheater
Reputation: 0
Joined: 05 Jan 2008
Posts: 652
|
| Posted: Fri Dec 12, 2008 7:32 am Post subject: |
|
|
ty, but the problem is ... i dont know how to use "reaks" code xD.
the biggest problem for me is that delphi is all english and i am dutch.
can some one post a source, so i can take a look at it?
if you post a source you get a rep+
_________________
why Hitler? why did you had to pm me that child porn?
btw Hitler, Shave your pubic hair
PM Me for Hitler's Nude pics |
|
| Back to top |
|
|
Reak
I post too much
 Reputation: 0
Joined: 15 May 2007
Posts: 3496
|
| Posted: Fri Dec 12, 2008 8:48 am Post subject: |
|
|
Click on the control you want to use as Drag and Drop component.
Click on the Events tab (At the Object Viewer) and then just doubleclick ont he OnMouseDown event and paste this code betwen the begin and end operator:
| Code: | if Button = mbLeft then
begin
SetCaptureControl(nil);
Perform(wm_SysCommand, sc_Move or 1, 0);
end; |
|
|
| Back to top |
|
|
Xeleron
Grandmaster Cheater
Reputation: 0
Joined: 05 Jan 2008
Posts: 652
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
