| View previous topic :: View next topic |
| Author |
Message |
jongwee
Moderator
 Reputation: 0
Joined: 28 Jun 2006
Posts: 1388
Location: Singapore
|
 Posted: Wed Sep 26, 2007 5:24 am Post subject: Delphi graphics |
 |
|
To make your form border-less while dragging, just put this piece of code into your source.
| Code: |
procedure TForm1.PanelTopMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button=mbLeft) then
begin
ReleaseCapture;
(Self as
TControl).Perform(WM_SYSCOMMAND,SC_DRAGMOVE,0);
end;
end;
|
To prevent minimising of your program window by dragging.
Put this in your private
| Code: |
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
|
And the rest in the body of the code
| Code: |
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if ((Msg.CmdType and $FFF0) = SC_SIZE) then
begin
Msg.Result := 0;
Exit;
end;
inherited;
end
|
To hide your program from taskbar, either use it via checkbox
| Code: |
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked = true then
ShowWindow (Application.handle, SW_HIDE)
else
ShowWindow (Application.handle, SW_SHOW);
end;
|
or using formcreate()
| Code: |
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
ShowWindow(Application.Handle, SW_SHOW);
end; |
_________________
Last edited by jongwee on Fri Sep 28, 2007 1:44 am; edited 1 time in total |
|
| Back to top |
|
 |
Kevin
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 07 Mar 2007
Posts: 1139
Location: Spiderman-World
|
| Posted: Wed Sep 26, 2007 9:00 am Post subject: |
|
|
| WOWOMG why do we need an entire topic for this? as it can be found using the search button... Nice work using Dark Bytes bandwidth!
|
|
| Back to top |
|
|
HomerSexual
Grandmaster Cheater Supreme
 Reputation: 5
Joined: 03 Feb 2007
Posts: 1657
|
| Posted: Wed Sep 26, 2007 1:12 pm Post subject: |
|
|
thats not his bandwidth dumbass, its his server space 
nice job jongwee
Kevinnn just because you have a high post count, doesn't mean your penis is big...
_________________
|
|
| Back to top |
|
|
Kevin
Grandmaster Cheater Supreme
Reputation: 0
Joined: 07 Mar 2007
Posts: 1139
Location: Spiderman-World
|
| Posted: Wed Sep 26, 2007 2:25 pm Post subject: |
|
|
what if it aint? 
heh, anyways these newbs should search before posting !
|
|
| Back to top |
|
|
HomerSexual
Grandmaster Cheater Supreme
Reputation: 5
Joined: 03 Feb 2007
Posts: 1657
|
| Posted: Wed Sep 26, 2007 3:03 pm Post subject: |
|
|
could you show me the post please? have'nt seen this one
_________________
|
|
| Back to top |
|
|
jongwee
Moderator
Reputation: 0
Joined: 28 Jun 2006
Posts: 1388
Location: Singapore
|
| Posted: Thu Sep 27, 2007 1:52 am Post subject: |
|
|
| Kevinnn wrote: | | motherfucking cock sucking moron, this must be your most embarresed moment... posting such fucking useless topics. Well its random spam so i guess its ok. |
| Kevinnn wrote: | | ... cool't |
| Kevinnn wrote: | How do i remove it!!?!
its fucking annoying, using space  You know, its the one where you can choose language, EN, DE, DK, US and so on! Everytime i right click and remove it, and then when i reboot it comes up again!!
plsplspls |
I don't see why a hypocrite has the rights to blame someone. Thanks Blankrider.
_________________
|
|
| Back to top |
|
|
Noz3001
I'm a spammer
 Reputation: 26
Joined: 29 May 2006
Posts: 6220
Location: /dev/null
|
| Posted: Thu Sep 27, 2007 3:32 am Post subject: |
|
|
| Kevinnn wrote: | what if it aint?
heh, anyways these newbs should search before posting ! |
If anyone here is 'newb' its you. Jongwee has been here a lot longer than you. He's giving something, the only time i've seen you post is when you're asking for help.
|
|
| Back to top |
|
|
jongwee
Moderator
Reputation: 0
Joined: 28 Jun 2006
Posts: 1388
Location: Singapore
|
| Posted: Fri Sep 28, 2007 1:45 am Post subject: |
|
|
| noz3001 wrote: | | Kevinnn wrote: | what if it aint?
heh, anyways these newbs should search before posting ! |
If anyone here is 'newb' its you. Jongwee has been here a lot longer than you. He's giving something, the only time i've seen you post is when you're asking for help. |
Haha thanks a bunch buddy. Updated
_________________
|
|
| Back to top |
|
|
DeletedUser14087
I post too much
![]() Reputation: 2
Joined: 21 Jun 2006
Posts: 3069
|
| Posted: Fri Sep 28, 2007 2:39 am Post subject: |
|
|
Thanks jongwee, usefull for new comers (though i know this)
And kevinnn, stop complaining, he is here longer than you.
|
|
| Back to top |
|
|
assaf84
Expert Cheater
![]() Reputation: 0
Joined: 03 Oct 2006
Posts: 238
|
| Posted: Fri Sep 28, 2007 3:14 am Post subject: |
|
|
| Thanks, can be useful..
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
