<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>X-pack.org &#187; Forms</title>
	<atom:link href="http://home.x-pack.org/category/free-source-code/delphi/forms/feed/" rel="self" type="application/rss+xml" />
	<link>http://home.x-pack.org</link>
	<description>Download all you need here</description>
	<lastBuildDate>Fri, 18 May 2012 11:09:35 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.2.1</generator>
		<item>
		<title>[ Delphi ] – Make a desktop screenshot</title>
		<link>http://home.x-pack.org/delphi-make-a-desktop-screenshot/</link>
		<comments>http://home.x-pack.org/delphi-make-a-desktop-screenshot/#comments</comments>
		<pubDate>Tue, 04 May 2010 06:36:50 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=525</guid>
		<description><![CDATA[function GetScreenShot: TBitmap; var &#160;&#160;Desktop: HDC; begin &#160;&#160;Result&#160;&#160;:= TBitmap.Create; &#160;&#160;Desktop := GetDC(0); &#160;&#160;try &#160;&#160;&#160;&#160;try &#160;&#160;&#160;&#160;&#160;&#160;Result.PixelFormat := pf32bit; &#160;&#160;&#160;&#160;&#160;&#160;Result.Width := Screen.Width; &#160;&#160;&#160;&#160;&#160;&#160;Result.Height := Screen.Height; &#160;&#160;&#160;&#160;&#160;&#160;BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY); &#160;&#160;&#160;&#160;&#160;&#160;Result.Modified := True; &#160;&#160;&#160;&#160;finally &#160;&#160;&#160;&#160;&#160;&#160;ReleaseDC(0, Desktop); &#160;&#160;&#160;&#160;end; &#160;&#160;except &#160;&#160;&#160;&#160;Result.Free; &#160;&#160;&#160;&#160;Result := nil; &#160;&#160;end; end; procedure TForm1.Button1Click(Sender: TObject); begin &#160;&#160;Image1.Picture.Bitmap := GetScreenShot; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-make-a-desktop-screenshot/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Show a form in full-screen mode</title>
		<link>http://home.x-pack.org/delphi-show-a-form-in-full-screen-mode/</link>
		<comments>http://home.x-pack.org/delphi-show-a-form-in-full-screen-mode/#comments</comments>
		<pubDate>Tue, 04 May 2010 06:28:56 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=512</guid>
		<description><![CDATA[{ Make your application Full Screen. Disable all of the system keys. } procedure TForm1.FormCreate(Sender: TObject); var HTaskbar: HWND; OldVal: LongInt; begin try // Find handle of TASKBAR HTaskBar := FindWindow('Shell_TrayWnd', nil); // Turn SYSTEM KEYS off, Only Win 95/98/ME SystemParametersInfo(97, Word(True), @OldVal, 0); // Disable the taskbar EnableWindow(HTaskBar, False); // Hide the taskbar ShowWindow(HTaskbar,]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-show-a-form-in-full-screen-mode/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Show hints in the Statusbar</title>
		<link>http://home.x-pack.org/delphi-show-hints-in-the-statusbar/</link>
		<comments>http://home.x-pack.org/delphi-show-hints-in-the-statusbar/#comments</comments>
		<pubDate>Tue, 04 May 2010 06:25:57 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=508</guid>
		<description><![CDATA[private &#160;&#160;procedure MyHint(Sender: TObject); end; implementation procedure TForm1.FormCreate(Sender: TObject); begin &#160;&#160;Application.OnHint := MyHint; &#160;&#160;ShowHint&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; := True; &#160;&#160;Button1.Hint&#160;&#160;&#160;&#160;&#160;&#160; := 'normal yellow hint&#124;Text in Statusbar'; &#160;&#160;Button2.Hint&#160;&#160;&#160;&#160;&#160;&#160; := 'only yellow hint&#124;'; &#160;&#160;Button3.Hint&#160;&#160;&#160;&#160;&#160;&#160; := '&#124;text only in statusbar'; &#160;&#160;Edit1.Hint&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; := 'same text'; end; procedure TForm1.MyHint(Sender: TObject); begin &#160;&#160;StatusBar1.SimpleText := Application.Hint; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-show-hints-in-the-statusbar/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Move windows without a caption bar</title>
		<link>http://home.x-pack.org/delphi-move-windows-without-a-caption-bar/</link>
		<comments>http://home.x-pack.org/delphi-move-windows-without-a-caption-bar/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 06:42:57 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=537</guid>
		<description><![CDATA[procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; &#160;&#160;Shift: TShiftState; X, Y: Integer); begin &#160;&#160;ReleaseCapture; &#160;&#160;SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-move-windows-without-a-caption-bar/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Get and set mouse position</title>
		<link>http://home.x-pack.org/delphi-get-and-set-mouse-position/</link>
		<comments>http://home.x-pack.org/delphi-get-and-set-mouse-position/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 06:37:55 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=527</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;MausPos: TPoint; begin &#160;&#160;GetCursorPos(MausPos); &#160;&#160;label1.Caption := IntToStr(MausPos.x); &#160;&#160;label2.Caption := IntToStr(MausPos.y); end; procedure TForm1.Button2Click(Sender: TObject); begin &#160;&#160;SetCursorPos(600, 600); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-get-and-set-mouse-position/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Prevent Windows from minimizing a Form</title>
		<link>http://home.x-pack.org/delphi-prevent-windows-from-minimizing-a-form/</link>
		<comments>http://home.x-pack.org/delphi-prevent-windows-from-minimizing-a-form/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 06:27:38 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=510</guid>
		<description><![CDATA[The Windows Taskbar function &#8220;Minimize all Windows&#8221; minimizes all Windows even if they don&#8217;t have a minimize button. The following code will prevent a form from minimizing through windows. procedure TForm1.WMShowWindow(var Msg: TWMShowWindow); begin &#160;&#160;if not Msg.Show then &#160;&#160;&#160;&#160;Msg.Result := 0 &#160;&#160;else &#160;&#160;&#160;&#160;inherited; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-prevent-windows-from-minimizing-a-form/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Format a MessageDlg</title>
		<link>http://home.x-pack.org/delphi-format-a-messagedlg/</link>
		<comments>http://home.x-pack.org/delphi-format-a-messagedlg/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 06:20:21 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=500</guid>
		<description><![CDATA[procedure TForm1.Button1Click(Sender: TObject); var &#160;&#160;f: TForm; begin &#160;&#160;f := Dialogs.CreateMessageDialog('HELLOWORLD', dialogs.mtInformation, dialogs.mbOKCancel); &#160;&#160;f.Color := clBlue; &#160;&#160;f.Font.Color := clLime; &#160;&#160;if f.ShowModal = mrOk then &#160;&#160;&#160;&#160;ShowMessage('OK Pressedt') &#160;&#160;else &#160;&#160;&#160;&#160;ShowMessage('Cancel pressed'); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-format-a-messagedlg/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Hide the Minimize/Maximize buttons of a form</title>
		<link>http://home.x-pack.org/delphi-hide-the-minimizemaximize-buttons-of-a-form/</link>
		<comments>http://home.x-pack.org/delphi-hide-the-minimizemaximize-buttons-of-a-form/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 06:18:08 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=498</guid>
		<description><![CDATA[procedure TForm1.FormCreate(Sender: TObject); var &#160;&#160;l: DWORD; begin &#160;&#160;l := GetWindowLong(Self.Handle, GWL_STYLE); &#160;&#160;l := l and not (WS_MINIMIZEBOX); &#160;&#160;l := l and not (WS_MAXIMIZEBOX); &#160;&#160;l := SetWindowLong(Self.Handle, GWL_STYLE, l); end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-hide-the-minimizemaximize-buttons-of-a-form/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Prevent movement of a form outside the desktop</title>
		<link>http://home.x-pack.org/delphi-prevent-movement-of-a-form-outside-the-desktop/</link>
		<comments>http://home.x-pack.org/delphi-prevent-movement-of-a-form-outside-the-desktop/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 06:11:24 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=491</guid>
		<description><![CDATA[procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; &#160;&#160;Shift: TShiftState; X, Y: Integer); begin &#160;&#160;if Form1.Left &#60;= 0 then Form1.Left := 0; &#160;&#160;if Form1.Top &#60;= 0 then Form1.Top := 0; &#160;&#160;if Form1.Left &#62;= Screen.Width - Form1.Width then &#160;&#160;&#160;&#160;Form1.Left := Screen.Width - Form1.Width; &#160;&#160;if Form1.Top &#62;= Screen.Height - Form1.Height then &#160;&#160;&#160;&#160;Form1.Top := Screen.Height - Form1.Height; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-prevent-movement-of-a-form-outside-the-desktop/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Minimize to System Tray</title>
		<link>http://home.x-pack.org/delphi-minimize-to-system-tray/</link>
		<comments>http://home.x-pack.org/delphi-minimize-to-system-tray/#comments</comments>
		<pubDate>Sun, 04 Apr 2010 06:05:18 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=483</guid>
		<description><![CDATA[unit Unit1; interface uses &#160;&#160;Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, &#160;&#160;StdCtrls, ShellApi; const &#160;&#160;WM_NOTIFYICON&#160;&#160;= WM_USER+333; type &#160;&#160;TForm1 = class(TForm) &#160;&#160;&#160;&#160;procedure FormCreate(Sender: TObject); &#160;&#160;&#160;&#160;procedure FormClose(Sender: TObject; var Action: TCloseAction); &#160;&#160;private &#160;&#160;&#160;&#160;{ Private declarations } &#160;&#160;&#160;&#160;tnid: TNotifyIconData; &#160;&#160;&#160;&#160;HMainIcon: HICON; &#160;&#160;&#160;&#160;procedure CMClickIcon(var msg: TMessage); message WM_NOTIFYICON; &#160;&#160;public &#160;&#160;&#160;&#160;{ Public declarations } &#160;&#160;end; var &#160;&#160;Form1: TForm1; implementation]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-minimize-to-system-tray/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Make a window borderless while dragging</title>
		<link>http://home.x-pack.org/delphi-make-a-window-borderless-while-dragging/</link>
		<comments>http://home.x-pack.org/delphi-make-a-window-borderless-while-dragging/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 06:43:46 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=539</guid>
		<description><![CDATA[procedure TForm1.PanelTopMouseDown(Sender: TObject; &#160;&#160;Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const &#160;&#160;SC_DRAGMOVE = $F012; begin &#160;&#160;if (Button = mbLeft) then &#160;&#160;begin &#160;&#160;&#160;&#160;ReleaseCapture; &#160;&#160;&#160;&#160;(Self as TControl).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); &#160;&#160;end; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-make-a-window-borderless-while-dragging/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Hide the main form at startup</title>
		<link>http://home.x-pack.org/delphi-hide-the-main-form-at-startup/</link>
		<comments>http://home.x-pack.org/delphi-hide-the-main-form-at-startup/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 06:40:42 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=533</guid>
		<description><![CDATA[{ &#160;&#160;Use the ShowMainForm property to control whether the application &#160;&#160;shows its main form on startup. } program Project1; uses &#160;&#160;Forms, &#160;&#160;Unit1 in 'Unit1.pas'; {Form1} {$R *.RES} begin &#160;&#160;Application.Initialize; &#160;&#160;Application.CreateForm(TForm1, Form1); &#160;&#160;Application.ShowMainForm := False; &#160;&#160;Application.Run; end.]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-hide-the-main-form-at-startup/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Make a 2-line hint</title>
		<link>http://home.x-pack.org/delphi-make-a-2-line-hint/</link>
		<comments>http://home.x-pack.org/delphi-make-a-2-line-hint/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 06:39:52 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=531</guid>
		<description><![CDATA[procedure TForm1.FormShow(Sender: TObject); begin Button1.Hint := 'Line 1' + #13#10 + 'Line 2'; end; { #13#10 will break a line }]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-make-a-2-line-hint/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Prevent a Form from Moving or Resizing</title>
		<link>http://home.x-pack.org/delphi-prevent-a-form-from-moving-or-resizing/</link>
		<comments>http://home.x-pack.org/delphi-prevent-a-form-from-moving-or-resizing/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 06:35:43 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=523</guid>
		<description><![CDATA[private procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; implementation procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); begin &#160;&#160;if ((Msg.CmdType and $FFF0) = SC_MOVE) or &#160;&#160;&#160;&#160;((Msg.CmdType and $FFF0) = SC_SIZE) then &#160;&#160;begin &#160;&#160;&#160;&#160;Msg.Result := 0; &#160;&#160;&#160;&#160;Exit; &#160;&#160;end; &#160;&#160;inherited; end;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-prevent-a-form-from-moving-or-resizing/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>[ Delphi ] – Hide the caption bar</title>
		<link>http://home.x-pack.org/delphi-hide-the-caption-bar/</link>
		<comments>http://home.x-pack.org/delphi-hide-the-caption-bar/#comments</comments>
		<pubDate>Thu, 04 Mar 2010 06:32:44 +0000</pubDate>
		<dc:creator>delphi geek</dc:creator>
				<category><![CDATA[Forms]]></category>

		<guid isPermaLink="false">http://localhost/a/?p=519</guid>
		<description><![CDATA[procedure TForm1.HideTitlebar; var &#160;&#160;Style: Longint; begin &#160;&#160;if BorderStyle = bsNone then Exit; &#160;&#160;Style := GetWindowLong(Handle, GWL_STYLE); &#160;&#160;if (Style and WS_CAPTION) = WS_CAPTION then &#160;&#160;begin &#160;&#160;&#160;&#160;case BorderStyle of &#160;&#160;&#160;&#160;&#160;&#160;bsSingle, &#160;&#160;&#160;&#160;&#160;&#160;bsSizeable: SetWindowLong(Handle, GWL_STYLE, Style and &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(not (WS_CAPTION)) or WS_BORDER); &#160;&#160;&#160;&#160;&#160;&#160;bsDialog: SetWindowLong(Handle, GWL_STYLE, Style and &#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;(not (WS_CAPTION)) or DS_MODALFRAME or WS_DLGFRAME); &#160;&#160;&#160;&#160;end; &#160;&#160;&#160;&#160;Height := Height - GetSystemMetrics(SM_CYCAPTION); &#160;&#160;&#160;&#160;Refresh;]]></description>
		<wfw:commentRss>http://home.x-pack.org/delphi-hide-the-caption-bar/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

<!-- Performance optimized by W3 Total Cache. Learn more: http://www.w3-edge.com/wordpress-plugins/

Page Caching using disk: enhanced
Database Caching 35/87 queries in 0.216 seconds using disk: basic
Object Caching 809/919 objects using disk: basic

Served from: home.x-pack.org @ 2012-05-19 05:03:13 -->
