Objekt Procedur aus Unit benutzen

[baba]

Moin, moin,

wie würdet Ihr sowas definieren?

Code: Alles auswählen

type
 
  { TFMain }
 
  TFMain = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
 
   // STEHT IN DER GLEICHEN UNIT - ALLES OK
    procedure FormCreate(Sender: TObject);         
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
 
//==========================================================
//DAS GEHT NICHT! 
 
   // STEHT IN UNIT_4711.PAS
    procedure StandardFunktion_fuer_button_click((Sender: TObject);   
 
// WIE SAGE ICH ES DEM COMILER?
//==========================================================
 
 
  private
    { private declarations }
  public
    { public declarations }
  end; 
 

Gruß
Baba.

[piper62]

Ich weiss ja nicht wie Deine Unit aussieht die Du einbinden möchtest?
Grundsätzlich brauchst Du es nicht noch einmal zu deklarieren sondern kannst Methoden einfach benutzen falls sie korrekt deklariert sind.
Ev. solltest Du überprüfen wie bestimmte Methoden/Properties in der Ursprungsunit definiert sind (Private, Public).
Bei der Procedure ist im Übrigen ein "(" zuviel.

[pluto]

procedure StandardFunktion_fuer_button_click((Sender: TObject);

da ist ein Fehler drin: Die zweite Klammer Auf ist zuviel. dann sollte das gehen.

[baba]

da ist ein Fehler drin: Die zweite Klammer Auf ist zuviel. dann sollte das gehen.

Moin, moin,

ja, da habe ich einen Schreibfehler in dem Beispiel gemacht. Hat mit dem Problem aber nichts zu tun.

Ich beschreibe meine Frage einmal, vielleicht ist das verständlicher.

1. Neune Anwendung
2. Neues Formular
3. Ein Button drauf
4. Das On-Click-Ereignis steht in UNIT_4711.PAS

Code: Alles auswählen

 
uses ..., ..., unit_4711;
 

ist in Form1 angegeben.

Mache ich einen DoppelClick das OnClick-Ereignis und setze die erzeugte Procedure in eine andere
Unit um, kommt natürlich diese Fehlermeldung.

Code: Alles auswählen

 
form1.pas(265,15) Error: Forward declaration not solved "TForm1.Btn1_Click(TObject)"
 

Wäre die Unit eine DLL würde ich EXTERNAL benutzen, aber die Procedure steht nur nicht in der gleichen
Datei (Form1.pas) sondern in Datei (Unit_4711.pas).

Gruß
Baba.

[theo]

Das geht so nicht. Deklaration und Implementation einer Klasse (hier TForm1) müssen in der gleichen Unit stehen.
Du kannst das höchstens mit Include Files auseinandernehmen.
Wieso willst du das denn so machen?

[slai]

Form1.button.onclick := @TForm10.Btn1_Click;

[pluto]

Vor dem Problem stehe ich auch immer wieder. Jetzt weiß ich was das Problem ist.
Eine perfekte Lösung dafür habe ich auch noch nicht gefunden.

Du kannst klassen leider nur in einer Unit Definieren und benutzen. Aus irgendeinengrund geht das (noch) nicht über meher Units wenn es eine Forword Definition werden soll.

[baba]

Wieso willst du das denn so machen?

... ich verliere die Übersicht.

Hintergrund:

Ich schreibe eine Anwendung für Windows Mobile. Nun habe ich festgestellt, dass Das WinMobile jedes neue Formular als eigene Anwendung im Programmbrowser anzeigt.

Code: Alles auswählen

 
Laufende Programme:
   Hauptanwendung
   Form2
   Form3
   ...
 

Also nehme ich ein großes Formular und platziere mehrere Panels mit 240x320 Pixeln drauf. Startet die Anwendung ändere ich per Programm die Parameter Form.Width und Form.Height und steuere welches Panel angezeigt wird, alle anderen sind Visible := False.

Dieses Vorgehen wirkt sich auch noch positiv auf die Geschwindigkeit aus.

Mein Problem:

Ich habe ein Formular, mit hunderten von Komponenten und mehrere tausend Zeilen Programmcode.

Ich werde jetzt die eigentliche OnClick-Procedure im Form1 lassen und aus dieser auf eine andere Unit verzweigen.

Gruß
Baba.

[pluto]

Warum Panels ? Dafür gibt es z.b. ein "Notebook", oder ein "PageControl".
Beim "Notebook" kannst du auch die Tabs unsichtbar machen. Beim "PageControl" meine ich nicht.

[baba]

Warum Panels ? Dafür gibt es z.b. ein "Notebook", oder ein "PageControl".
Beim "Notebook" kannst du auch die Tabs unsichtbar machen. Beim "PageControl" meine ich nicht.

Border läßt sich unter WinMobile nicht abschalten. Würde auch nichts ändern, es bliebe alles in einer Datei.

Dies war mein erster Ansatz.

Baba.

[Christian]

Panels, Notebooks, Pagecontrols alles quatsch warum nimmst du nicht einfach Frames oder behebst den fehler im WinCe interface wenn du das nicht kannst sollte er möglichst wenigstens dokumentiert werden (Bugtracker) ich ahbs schon oft erlebt das derlei dinge inenrhalb einer halben Stunde behoben wurden (was ich im Falle vom WinCE Interface aber nicht glaube).

[baba]

Panels, Notebooks, Pagecontrols alles quatsch warum nimmst du nicht einfach Frames

.. mit Frames habe ich noch nicht gearbeitet, löst das denn mein Problem mit der einen Datei?

oder behebst den fehler im WinCe interface

.. da müßte ich mich erst einarbeiten, dass Vorgehen via Panels ist unter Visual C (Mobile) normal. Daher bin ich damit vertraut. Da mir aber Pascal mehr liegt als C, gerade bei größeren Projekten, nutze ich immer häufiger Lazarus.

dokumentiert werden (Bugtracker)

.. das ist richig, ist die Frage ob es nicht schon gemeldet wurde.

Baba.

[pluto]

@Christian
Seit wann genau unterstützt Lazarus Frames ? Ich habe sowas dort bisher aufjedenfall noch nicht gefunden Habe damit auch schlecht Erfahrung gemacht unter Delphi.

[knight]

Seit wann genau unterstützt Lazarus Frames ? I

Seit Version 0.9.27.

knight

[pluto]

ach so, darum kannte ich das nicht.... Version 0.9.27 konnte ich beim letzten versuch nicht Kompilieren. Werde es aber noch mal versuchen.
und sind die Frames denn voll eingebaut ?