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

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

Making the Enter Key act like Tab (Delphi Tips)

{ Delphi Tips This code gives the key the same habbit as the key to change focus between Controls. } // Form1.KeyPreview := True ! procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; { check if SHIFT - Key is pressed } if GetKeyState(VK_Shift) and $8000 <> 0 then PostMessage(Handle, WM_NEXTDLGCTL, 1, 0) else PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); end ; end ; swissdelphicenter.ch
Read more