Zitat von
fuknersascha:
Kann mann das jetzt irgenwie so schreiben das ich es von der Ersten Form auf die andere übertrage
Erstelle einfach eine eigene Form-Klasse, von der all deine Formulare erben:
Delphi-Quellcode:
unit MyForms;
interface
type
TMyForm =
class(TForm)
protected
procedure WndProc(
var Msg: TMessage);
override;
end;
implementation
procedure TMyForm.WndProc(
var Msg: TMessage);
begin
...
end;
end.
Delphi-Quellcode:
unit Form1;
interface
uses
MyForms;
type
TForm1 =
class(
{=>}TMyForm
{<=})
...
private
public
end;
...