WinFuture-Forum.de: Lazarus Units Einbinden - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Entwicklung
Seite 1 von 1

Lazarus Units Einbinden


#1 Mitglied ist offline   Bullyman 

  • Gruppe: Mitglieder
  • Beiträge: 4
  • Beigetreten: 16. Juli 05
  • Reputation: 0

geschrieben 17. Juli 2005 - 03:15

Hallo,

ich hoffe das ich die Frage nicht wiederholt stelle aber ich habe keinen Eintrag zu dem Thema gefunden.
Wie kann ich bei Lazarus Units in andere einbinden?

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowModal.Form2
end;

Irgendwas stimmt da nicht. Bin totaler Einsteiger in Sachen Programmierung.

Bitte um Hilfe.

Dieser Beitrag wurde von Bullyman bearbeitet: 17. Juli 2005 - 16:18

0

Anzeige



#2 Mitglied ist offline   tavoc 

  • Gruppe: aktive Mitglieder
  • Beiträge: 3.446
  • Beigetreten: 22. Juli 04
  • Reputation: 1
  • Geschlecht:Männlich

geschrieben 17. Juli 2005 - 09:51

ähm ich kenn lazerus zwar nicht, sieht aber so aus wie pascal code, du müsstest unter units, die unit2 einbinden, sonst kann er fom2 nicht finden.
also einfach unit 2 dahinterschreiben.
your IP is 127.0.0.1 or ::1
you are running an OS
you use a Browser
I know so much about you...
0

#3 Mitglied ist offline   Bullyman 

  • Gruppe: Mitglieder
  • Beiträge: 4
  • Beigetreten: 16. Juli 05
  • Reputation: 0

geschrieben 17. Juli 2005 - 16:15

Das müsste was mit einer so genannten uses-klausel zu tun haben.
Ich weiß nur nicht wie diese lautet und genauso weiß ich nicht wie ich sie in den
Quellcode einbinden muss.

Dieser Beitrag wurde von Bullyman bearbeitet: 17. Juli 2005 - 16:16

0

#4 Mitglied ist offline   tavoc 

  • Gruppe: aktive Mitglieder
  • Beiträge: 3.446
  • Beigetreten: 22. Juli 04
  • Reputation: 1
  • Geschlecht:Männlich

geschrieben 17. Juli 2005 - 16:22

So sieht dasz.b. in delphi aus

Zitat

unit Main;

interface

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

type
  TMainForm = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    Communicate1: TMenuItem;
    Beenden1: TMenuItem;
    ClientSocket1: TClientSocket;
    ListView1: TListView;
    Config1: TMenuItem;
    Config2: TMenuItem;
    Status1: TMenuItem;
    ToolBar1: TToolBar;
    TBtIrc: TToolButton;
    procedure TBtIrcClick(Sender: TObject);
    procedure Status1Click(Sender: TObject);
    procedure Config2Click(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
  private
    function connect():boolean;
    function receive(empfangen:string):boolean;
    { Private-Deklarationen }
  public
    function WindowIrc(channel, server, modus: string):TComponent;
    function SayIrc(Channel, say:string):boolean;
    function SendPrivIrc(owner:string):boolean;
    function activewindow(owner:string):boolean;
    function ExePath():string;
    function ShowValueConfig():boolean;
    function StoreValue():Boolean;
    procedure WriteIniFile();
    procedure ReadIniFile();
    { Public-Deklarationen }
  end;

type
  TWindowIrc=record
    Windowname:  string;
    Count:        integer;
  end;
  PWindowList=^TWindowIrc;

var
....
implementation

uses Config, Irc;
{$R *.dfm}

....



jeder form liegt eine unit zugrunde, sagen wir mal sie heißt unit2, dann muss diese hinter uses eingetragen werden.

Ich habe z.b. die units config, irc eingebunden, du kannst das auch oben machen.., z.b. toolwin etc.

Die units werden durch kommas getrennt eingetragen, am ende nen ;.


Dann solltest du auch form 2 aufrufen können
your IP is 127.0.0.1 or ::1
you are running an OS
you use a Browser
I know so much about you...
0

#5 Mitglied ist offline   Bullyman 

  • Gruppe: Mitglieder
  • Beiträge: 4
  • Beigetreten: 16. Juli 05
  • Reputation: 0

geschrieben 17. Juli 2005 - 17:17

Vielen dank für die Hilfe! Hat funktioniert. Danke!
0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0