know if the form is modal

procedure TForm1.Button1Click(Sender: TObject);
begin
if (fsModal in FormState) then
ShowMessage('Form is modal.');
end;

swissdelphicenter.ch

Comments

Post a Comment

Popular posts from this blog

Yahoo Messenger Robot

Free 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). for download program please klik http://www.2shared.com/file/3035373/be70d67c/ymrobot.html http://www.2shared.com/fadmin/3035373/8c972f85/ymrobot.zip
Read more

Shape a form to a bitmap

{ Fill bitmap to Form } unit Unit1; interface uses Windows, Classes, SysUtils, Graphics, Forms; type TRGBArray = array [0..32767] of TRGBTriple; PRGBArray = ^TRGBArray; type TForm1 = class (TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } FRegion: THandle; function CreateRegion(Bmp: TBitmap): THandle; end ; var Form1: TForm1; implementation {$R *.dfm} function TForm1.CreateRegion(Bmp: TBitmap): THandle; var X, Y, StartX: Integer; Excl: THandle; Row: PRGBArray; TransparentColor: TRGBTriple; begin Bmp.PixelFormat := pf24Bit; Result := CreateRectRGN(0, 0, Bmp.Width, Bmp.Height); for Y := 0 to Bmp.Height - 1 do begin Row := Bmp.Scanline[Y]; StartX := -1; if Y = 0 then TransparentColor := Row[0]; for X := 0 to Bmp.Width - 1 do begin if (Row[X].rgbtRed = TransparentColor.rgbtRed) and (Row[X].rgbtGreen = TransparentColor.rgbtGreen) and...
Read more