/TWin32WidgetSet(InterfaceObject).AppBringToFront; does not seem to work
Original Reporter info from Mantis: equinox
-
Reporter name:
Original Reporter info from Mantis: equinox
- Reporter name:
Description:
None of these bring the application on top of all others:
TWin32WidgetSet(InterfaceObject).AppBringToFront;
BringToFront;
ShowOnTop;
Steps to reproduce:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
InterfaceBase,Win32int;
type
{ TForm1 }
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//TWin32WidgetSet(InterfaceObject).AppBringToFront;
//BringToFront;
ShowOnTop;
writeln('timer');
end;
initialization
{$I unit1.lrs}
Mantis conversion info:
- Mantis ID: 998
- OS: XP
- OS Build: 0.9.7 beta
- Build: 06.25
- Platform: Windows
- Version: 0.9.7 (CVS)
- Fixed in version: 0.9.9 (SVN)
- Fixed in revision: 7755 (#9aedd8ae)
- Monitored by: » luizamerico (Luiz Americo)
- Target version: 0.9.12