Hallo,
es kommen keine Fehler. Ich kann bloß die Proceduren nicht aufrufen die ich in meiner
Unit ausgelagert habe. hier die Proceduren die ich ausgelagerrt habe.
Delphi-Quellcode:
unit UProceduren;
interface
uses StdCtrls, Graphics;
type
TProceduren =
class
public
procedure mouse_move(Sender: TObject);
procedure mouse_leave(Sender: TObject);
end;
implementation
procedure TProceduren.mouse_move(Sender: TObject);
begin
TLabel(Sender).Font.Color:=clRed;
end;
procedure TProceduren.mouse_leave(Sender: TObject);
begin
TLabel(Sender).Font.Color:=clWindowText;
end;
end.