hi,

ich habe ein problem: ich habe eine unit geschrieben, die eine form enthält, und ich möchte diese unit nun in einer anderen unit einbinden und dann die form sehen können und die prozedur rehashworld auch benutzen können. ich habe nur leider keine ahnung, wie ich das so recht anstellen soll.

[code]
unit uKlasse;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dglOpenGL, StdCtrls, ClipBrd, ExtCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Rotate;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
DC : HDC; // Drawing Context
RC : HGLRC; // Rendering Context
public
procedure RehashWorld(World : Array Of Integer);
end;

var
Form1 : TForm1:

implementation

{$R *.dfm}

...
[/code]

du musst die unit in die uses-Klausel der anderen unit eintragen, so



dann kannst du auf die Variable Form1 zugreifen und die Prozedur aufrufen: