Eigenen Funktionsaufruf in vorhandene Klasse "einhaken"

[Hawkeye219]

Hallo,

du könntest es mit einer Unit ählich dieser versuchen:

Delphi-Quellcode:

unit unit_MyForm;

interface

uses
  Controls, Forms;

type
  TForm = class (Forms.TForm)
  protected
    procedure CreateParams (var Params: TCreateParams);
      override;
  end;

implementation

uses
  Windows;

procedure TForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  // hier die gewünschten Änderungen einbauen:
  Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW;
end;

end.

Wichtig ist, daß unit_MyForm in die USES-Anweisung aller betroffenen Formular-Units aufgenommen wird und dort hinter der Unit Forms steht. Eine Erklärung dieses "Tricks" findest du in diesem Artikel von Hallvard Vassbotn.

Gruß Hawkeye