Code aus Button in andere unit auslagern

[moperswings]

Hallo,

wenn ich einen Button in einer Form habe und möchte übersichtshalber den Code in eine seperate unit auslagern, wie mache ich das? Es gibt doch bestimmt so einen Befehl wie bei php die include()-Funktion, die ich zwischen procedure begin und end einfügen kann? Wenn es doch mit uses gehen sollte, wie muss ich meinen Code dann deklarieren?

Hoffe, Ihr könnt mir helfen!

Viele Grüsse, moperswings

[Masterof]

Hallo!

meines Wissens nach musst du in deiner Funktion "Buttonclick" eine andere Funktion in aufrufen, und die entsprechenden Parameter übergeben.
Das es sowas wie "include" gibt ist mir nicht bekannt, weil du die Units ja oben im Kopf einbindest.

Gruß Master

[mkinzler]

Einfach die Event-Property (.onClick) auf Methode der Klasse in anderer Unit setzen.

[moperswings]

@mkinzler

Und wie mache ich das?

[mkinzler]

Unit2:

Delphi-Quellcode:

 ...
  procedure c1.ButtonClick( Sender: TObject);
 ...

Uni1:

Delphi-Quellcode:

 ...
  implementation
  uses Unit2;
  ...
  Form1.Button1.onClick = c1.ButtonClick;

[moperswings]

hmm, ich krieg das nicht hin!

unit1

Delphi-Quellcode:

procedure Button1.onClick (Sender: TObject);

implementation
uses unit2;

procedure Button1.onClick (Sender: TObject);
begin
      Form1.Button1.onclick = c1.ButtonClick;
end;

unit2

Delphi-Quellcode:

procedure c1.ButtonClick(Sender: TObject);
begin 
   Form1.Color := clred;
end;

Wo ist der Fehler?

[Phoenix]

Was sagt denn der Compiler? Der gibt Dir bei DEM Code unter Garantie eine Meldung, die Dir genau sagt was Du da nicht richtig gemacht hast.

[mkinzler]

procedure Button1.onClick (Sender: TObject);
procedure Button1.onClick (Sender: TObject);
begin
Form1.Button1.onclick = c1.ButtonClick;
end;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
    Button1.onClick := c1.ButtonClick;
end;

[moperswings]

In unit2 sieht es so aus:

Delphi-Quellcode:

procedure cl.Button(Sender: TObject);
begin
    Form1.Color := clred;
end;

Fehlermeldung:
Bei der procedure ; erwartet aber , gefunden
Form1 und clred sind undefinierte Bezeichner
Unit1 gibt keine Fehlermeldung zurück

[Michael80]

Irgendwie blick ich den Sinn hier net ganz.

wieso nicht einfach

unit1 = Form1 ??

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
uses Unit2;
{$R *.nfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Unit2.Button1Click(Form1);
end;

end.

unit2

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
implementation
uses Unit1;
procedure Button1Click(Sender: TObject);
begin
   Form1.Color := clred;
end;
end.