Окно поверх курсора

[x128]

Не забудь событию формы OnDestroy назначить процедуру.

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ShellCtrls, Grids, Outline, DirOutln, ExtCtrls,
  StdCtrls, FileCtrl, Spin, Buttons;

type
  TfmImageViewer = class(TForm)
    pnToolBar: TPanel;
    pnNavigation: TPanel;
    dcbDrives: TDriveComboBox;
    dlbFolders: TDirectoryListBox;
    flbFiles: TFileListBox;
    imgPhoto: TImage;
    chbFitToScreen: TCheckBox;
    seInterval: TSpinEdit;
    chbSlideShow: TCheckBox;
    Label1: TLabel;
    Timer1: TTimer;
    bbClose: TBitBtn;
    bbFullScreen: TBitBtn;
    procedure flbFilesChange(Sender: TObject);
    procedure chbFitToScreenClick(Sender: TObject);
    procedure chbSlideShowClick(Sender: TObject);
    procedure seIntervalChange(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure bbFullScreenClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    HKey: Integer;
    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  fmImageViewer: TfmImageViewer;

implementation

{$R *.dfm}

Uses
  jpeg, FullScreen;

procedure TfmImageViewer.WMHotKey(var Msg: TWMHotKey);
begin
  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) xor WS_EX_TRANSPARENT);
  AlphaBlendValue:=AlphaBlendValue xor 128;
end;

procedure TfmImageViewer.flbFilesChange(Sender: TObject);
Var
  Ext:String;
  JP:TJPEGImage;
  Rect:TRect;
begin
  Screen.Cursor:=crAppStart;
Try
  If ((flbFiles.FileName='') And (flbFiles.Count<>0)) Then
  Begin
    flbFiles.ItemIndex:=0;
  End;

  Ext:=ExtractFileExt(flbFiles.FileName);
  If ((Ext='.jpg') Or (Ext='.jpeg')) Then
  Begin
    JP:=TJPEGImage.Create;
    JP.LoadFromFile(flbFiles.FileName);
    imgPhoto.Picture.Assign(JP);
    JP.Free;
  End
  Else If Ext='.bmp' Then
  Begin
    imgPhoto.Picture.LoadFromFile(flbFiles.FileName);
  End
  Else Begin
    Rect.Left:=0; Rect.Top:=0; Rect.Right:=imgPhoto.Width-1; Rect.Bottom:=imgPhoto.Height-1;
    imgPhoto.Picture.Bitmap.Width:=imgPhoto.Width;
    imgPhoto.Picture.Bitmap.Height:=imgPhoto.Height;
    imgPhoto.Picture.Bitmap.Canvas.Brush.Color:=clGray;
    imgPhoto.Picture.Bitmap.Canvas.Brush.Style:=bsSolid;
    imgPhoto.Picture.Bitmap.Canvas.FillRect(Rect);
    imgPhoto.Picture.Bitmap.Canvas.Refresh;
  End;

  fmFullScreen.imgPhoto.Stretch:=imgPhoto.Stretch;
  fmFullScreen.imgPhoto.Picture.Assign(imgPhoto.Picture);
Except
  ShowMessage('Неизвестный формат файла!');
End;
  Screen.Cursor:=crDefault;
end;

procedure TfmImageViewer.chbFitToScreenClick(Sender: TObject);
begin
  imgPhoto.Stretch:=chbFitToScreen.Checked;
end;

procedure TfmImageViewer.chbSlideShowClick(Sender: TObject);
begin
  seIntervalChange(Self);
  Timer1.Enabled:=chbSlideShow.Checked;
end;

procedure TfmImageViewer.seIntervalChange(Sender: TObject);
begin
  Timer1.Interval:=seInterval.Value*1000;
end;

procedure TfmImageViewer.Timer1Timer(Sender: TObject);
begin
  If (flbFiles.ItemIndex+1<flbFiles.Count) Then
  Begin
    flbFiles.ItemIndex:=flbFiles.ItemIndex+1;
    flbFilesChange(Self);
  End
  Else If (flbFiles.ItemIndex+1=flbFiles.Count) And (flbFiles.Count>0) Then
  Begin
    flbFiles.ItemIndex:=0;
    flbFilesChange(Self);
  End;
end;

procedure TfmImageViewer.bbFullScreenClick(Sender: TObject);
begin
  fmFullScreen.imgPhoto.Stretch:=imgPhoto.Stretch;
  fmFullScreen.Show;
end;

procedure TfmImageViewer.FormCreate(Sender: TObject);
begin
  HKey:=GlobalAddAtom('Alt+F12');
  RegisterHotKey(Handle, HKey, MOD_ALT, VK_F12);

  FormStyle:=fsStayOnTop;
  AlphaBlend:=true;
  AlphaBlendValue:=127;

  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
end;

procedure TfmImageViewer.FormDestroy(Sender: TObject);
  UnRegisterHotKey(Handle, HKey);
  GlobalDeleteAtom(HKey);
end;

procedure TfmImageViewer.FormResize(Sender: TObject);
begin
  flbFilesChange(Self);
end;

end.

[Ax_32]

Вот и у меня так было, что неправильно?

[x128]

Объект форма/Object Inspector/Events в поле OnDestroy кликнуть два раза.

[Ax_32]

сделал, всё равно:

[x128]

в описании класса процедура объявлена?

[Ax_32]

незнаю... как это сделать?