tag:blogger.com,1999:blog-58426618279727385592024-02-08T07:49:08.392-08:00Delphi Tips & TrickDelphi Tips & TrickOkahttp://www.blogger.com/profile/04878186223719908530noreply@blogger.comBlogger6125tag:blogger.com,1999:blog-5842661827972738559.post-29857592823712625652008-03-24T02:26:00.000-07:002008-03-24T02:28:55.213-07:00Yahoo Messenger RobotFree Yahoo Robot Messenger is auto response Yahoo Mess program. Message Response taking from database. This program is free using Bricksoft IM(MSN,YAHOO,AIM) VCL Component(Unregistered Version).<br /><br />for download program please klik<br />http://www.2shared.com/file/3035373/be70d67c/ymrobot.html<br />http://www.2shared.com/fadmin/3035373/8c972f85/ymrobot.zipOkahttp://www.blogger.com/profile/04878186223719908530noreply@blogger.com0tag:blogger.com,1999:blog-5842661827972738559.post-46138545736721373092008-03-07T18:58:00.000-08:002008-03-07T19:00:44.993-08:00Shape a form to a bitmap<span style="font-size:100%;"><span class="sourcecode"><span style="font-family:Courier New;"><span style="color:#000000;"><b>{ Fill bitmap to Form<br />}<br />unit </b>Unit1;<br /><br /><b>interface<br /><br />uses<br /> </b>Windows, Classes, SysUtils, Graphics, Forms;<br /><br /><b>type<br /> </b>TRGBArray = <b>array</b>[0..32767] <b>of </b>TRGBTriple;<br /> PRGBArray = ^TRGBArray;<br /><br /><b>type<br /> </b>TForm1 = <b>class</b>(TForm)<br /> <b>procedure </b>FormCreate(Sender: TObject);<br /> <b>procedure </b>FormDestroy(Sender: TObject);<br /> <b>private<br /> </b><span style="color:#000080;"><i>{ Private declarations }<br /> </i></span>FRegion: THandle;<br /> <b>function </b>CreateRegion(Bmp: TBitmap): THandle;<br /> <b>end</b>;<br /><br /><b>var<br /> </b>Form1: TForm1;<br /><br /><b>implementation<br /><br /></b><span style="color:#000080;"><i>{$R *.dfm}<br /><br /></i></span><b>function </b>TForm1.CreateRegion(Bmp: TBitmap): THandle;<br /><b>var<br /> </b>X, Y, StartX: Integer;<br /> Excl: THandle;<br /> Row: PRGBArray;<br /> TransparentColor: TRGBTriple;<br /><b>begin<br /> </b>Bmp.PixelFormat := pf24Bit;<br /><br /> Result := CreateRectRGN(0, 0, Bmp.Width, Bmp.Height);<br /><br /> <b>for </b>Y := 0 <b>to </b>Bmp.Height - 1 <b>do<br /> begin<br /> </b>Row := Bmp.Scanline[Y];<br /><br /> StartX := -1;<br /><br /> <b>if </b>Y = 0 <b>then<br /> </b>TransparentColor := Row[0];<br /><br /> <b>for </b>X := 0 <b>to </b>Bmp.Width - 1 <b>do<br /> begin<br /> if </b>(Row[X].rgbtRed = TransparentColor.rgbtRed) <b>and<br /> </b>(Row[X].rgbtGreen = TransparentColor.rgbtGreen) <b>and<br /> </b>(Row[X].rgbtBlue = TransparentColor.rgbtBlue) <b>then<br /> begin<br /> if </b>StartX = -1 <b>then </b>StartX := X;<br /> <b>end<br /> else<br /> begin<br /> if </b>StartX > -1 <b>then<br /> begin<br /> </b>Excl := CreateRectRGN(StartX, Y, X + 1, Y + 1);<br /> <b>try<br /> </b>CombineRGN(Result, Result, Excl, RGN_DIFF);<br /> StartX := -1;<br /> <b>finally<br /> </b>DeleteObject(Excl);<br /> <b>end</b>;<br /> <b>end</b>;<br /> <b>end</b>;<br /> <b>end</b>;<br /><br /> <b>if </b>StartX > -1 <b>then<br /> begin<br /> </b>Excl := CreateRectRGN(StartX, Y, Bmp.Width, Y + 1);<br /> <b>try<br /> </b>CombineRGN(Result, Result, Excl, RGN_DIFF);<br /> <b>finally<br /> </b>DeleteObject(Excl);<br /> <b>end</b>;<br /> <b>end</b>;<br /> <b>end</b>;<br /><b>end</b>;<br /><br /><b>procedure </b>TForm1.FormCreate(Sender: TObject);<br /><b>var<br /> </b>Bmp: TBitmap;<br /><b>begin<br /> </b>Bmp := TBitmap.Create;<br /> <b>try<br /> </b>Bmp.LoadFromFile('C:\YourBitmap.bmp');<br /> FRegion := CreateRegion(Bmp);<br /> SetWindowRGN(Handle, FRegion, True);<br /> <b>finally<br /> </b>Bmp.Free;<br /> <b>end</b>;<br /><b>end</b>;<br /><br /><b>procedure </b>TForm1.FormDestroy(Sender: TObject);<br /><b>begin<br /> </b>DeleteObject(FRegion);<br /><b>end</b>;<br /><br /><b>end</b>.<br />swissdelphicenter.ch<br /></span></span></span></span>Okahttp://www.blogger.com/profile/04878186223719908530noreply@blogger.com0tag:blogger.com,1999:blog-5842661827972738559.post-63989522711735767482008-03-07T18:30:00.000-08:002008-03-07T18:35:54.775-08:00Making the Enter Key act like Tab (Delphi Tips)<span style="font-size:100%;"><span class="sourcecode"><span style="font-family:Courier New;"><span style="color: rgb(0, 0, 128);"><i>{ Delphi Tips<br /> This code gives the key the same habbit as the key to<br /> change focus between Controls.<br /><br />}<br /><br />// Form1.KeyPreview := True !<br /><br /></i></span><b>procedure </b>TForm1.FormKeyPress(Sender: TObject; <b>var </b>Key: Char);<br /><b>begin<br /> if </b>Key = #13 <b>then<br /> begin<br /> </b>Key := #0;<br /> <span style="color: rgb(0, 0, 128);"><i>{ check if SHIFT - Key is pressed }<br /> </i></span><b>if </b>GetKeyState(VK_Shift) <b>and </b>$8000 <> 0 <b>then<br /> </b>PostMessage(Handle, WM_NEXTDLGCTL, 1, 0)<br /> <b>else<br /> </b>PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);<br /> <b>end</b>;<br /><b>end</b>;<br /><br />swissdelphicenter.ch<br /></span></span></span>Okahttp://www.blogger.com/profile/04878186223719908530noreply@blogger.com1tag:blogger.com,1999:blog-5842661827972738559.post-44472073525466037422008-03-07T18:24:00.001-08:002008-03-07T18:26:25.405-08:00know if the form is modal<span class="sourcecode" style="font-size:100%;"> <span style="color: rgb(0, 0, 0);font-family:Courier New;" ><b>procedure </b>TForm1.Button1Click(Sender: TObject);<br /><b>begin<br />if </b>(fsModal <b>in </b>FormState) <b>then<br /> </b>ShowMessage('Form is modal.');<br /><b>end</b>;<br /><br />swissdelphicenter.ch<br /></span></span>Okahttp://www.blogger.com/profile/04878186223719908530noreply@blogger.com0tag:blogger.com,1999:blog-5842661827972738559.post-69644274877999382802008-03-07T18:20:00.000-08:002008-03-07T18:23:21.218-08:00Execute the Windows Explorer Find File Dialog BoxThe following example demonstrates using DDE to execute Explorer's find file dialog. The example opens the dialog in the Directory "C:\DelphiTips". ~~~~~~~~~~~~~~~~~~~~~~~~~<br />uses ddeman;<br />procedure TForm1.Button1Click(Sender: TObject) ;<br />begin<br /> with TDDEClientConv.Create(Self) do begin<br /> ConnectMode := ddeManual;<br /> ServiceApplication := 'explorer.exe';<br /> SetLink( 'Folders', 'AppProperties') ;<br /> OpenLink;<br /> ExecuteMacro<br /> ('[FindFolder(, C:\DelphiTips)]', False) ;<br /> CloseLink;<br /> Free;<br /> end;<br />end;<br /><br />About.comOkahttp://www.blogger.com/profile/04878186223719908530noreply@blogger.com0tag:blogger.com,1999:blog-5842661827972738559.post-80176002510820319292008-03-07T17:24:00.000-08:002008-03-07T17:27:53.711-08:00Making a transparent formAdd a Button (Button1) to a Delphi form (Form1)<br />procedure TForm1.FormCreate(Sender: TObject) ;<br />var<br /> FullRgn, ClientRgn, ButtonRgn: THandle;<br /> Margin, X, Y: Integer;<br />begin<br /> Margin := (Width - ClientWidth) div 2;<br /> FullRgn := CreateRectRgn(0, 0, Width, Height) ;<br /> X := Margin;<br /> Y := Height - ClientHeight - Margin;<br /> ClientRgn := CreateRectRgn<br /> (X, Y, X + ClientWidth, Y + ClientHeight) ;<br /> CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF) ;<br /> X := X + Button1.Left;<br /> Y := Y + Button1.Top;<br /> ButtonRgn := CreateRectRgn<br /> (X, Y, X + Button1.Width, Y + Button1.Height) ;<br /> CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR) ;<br /> SetWindowRgn(Handle, FullRgn, True) ;<br />end;<br /><br />from: about.comOkahttp://www.blogger.com/profile/04878186223719908530noreply@blogger.com0