1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
unit ide_debugoutput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tdebugoutput = class(TForm)
output: TMemo;
private
public
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
var
debugoutput: Tdebugoutput;
implementation
{$R *.dfm}
{ Tdebugoutput }
procedure Tdebugoutput.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;
end.
|
