auf variable einer anderen unit zugreifen klapt nicht

[TheAn00bis]

Vielleicht hilft ja der SourceCode...

Erste Unit:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ToolWin, ComCtrls, ExtCtrls, StdCtrls, Menus, Buttons;

type
  TForm1 = class(TForm)
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
//...
  private
  werkzeug: string;
  zaehler, zaehler1, menge: integer;
//...
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Farben;

{$R *.DFM}

//....

Procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
   var xwert, ywert,i: Integer;
begin
StatusBar1.Panels[1].Text := Format('%d : %d', [X,Y]);

  if Zeichnen then begin

      if werkzeug='pinsel' then begin
         Bild.canvas.Brush.Style := bssolid;
         Bild.canvas.Pen.Color := farben.vordergrundfarbe;

//....

2.Unit:

Delphi-Quellcode:

unit Farben;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons;

type
  TFarben = class(TForm)
    Panel2: TPanel;
    Image1: TImage;
    procedure Panel5Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
//...
  private
    farbe1, farbe2: BOOLEAN;
    farbe: TColor;
    { Private-Deklarationen }
  public
     hintergrundfarbe: TColor;
     vordergrundfarbe: TColor;
    { Public-Deklarationen }
  end;

var
  Farben1: TFarben;

implementation


{$R *.DFM}

Code:

Delphi-Quellcode:

program MRpaintdpr;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Farben in 'Farben.pas' {Farben};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TFarben, Farben1);
  Application.Run;
end.

Kein Ahnung, ob das letzte gebraucht wird. Wäre super wenn sich da mal jemand durchschlagen könnte. ICh bin kurz davor mit dem Kopf vor die Wand zu rennen

P.S.: Coole Idee mit den Weihnatchtssmilies, sowas hab ich in keinem anderen Forum erlebt!

//Edit: Ich habe eine Art Paint programmiert (ist ein wenig besser, als MS's Paint ), jetzt will ich aber die Farbauswahl in einer neuen Form haben, da das dann wie in professionellen Programmen ist, aber leider klappt die Variable-Übergabe ja nicht...