Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - aus anderen Units Objekt-Eigenschaften ändern


MiB-Agent - Fr 23.05.03 15:26
Titel: aus anderen Units Objekt-Eigenschaften ändern
Hallo!
wie kann man eine zweite unit so in ein programm einbauen, dass man von dort aus in einer procedure object-eigenschaften ändern kann, also z.b. steht in unit2 dass label1.caption:='xxxc' sein soll, aber unit2 wird erst in unit1 durch einen klick auf irgendeinen button aufgerufen... ich komm mit dem quelltext nich zurecht... :cry:


Luncustaf - Fr 23.05.03 15:43
hmm ich verstehe nicht ganz was du machen willst entweder du setzt das caption des labels im objectinspektor schon auf xxxc oder du machst es in das form.create deiner zweien unit.


gr€€tz

PS: nen bisserl quellcode wäre net schlecht


MiB-Agent - Fr 23.05.03 19:35
naja also soweit bin ich schon:
unit1:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
 
unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, unit2;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.text='abc' then xx1;
if combobox1.text='def' then xx2;
end;

end.

unit2:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
 
unit Unit2;

interface
procedure xx1;



implementation
procedure xx1;
begin
label1.caption:='xxxc';
end;
end.

unit3:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
unit Unit3;

interface
procedure xx2;
implementation

procedure xx2;
begin
label1.caption:='xxxd';
end;
end.

dann zeigt er mir den fehler an, dass label1 ein unbekannter bezeichner is (fehler 3)... :(


Tino - Sa 24.05.03 12:09
Hi,

Du musst natürlich die Unti1 in die Units Unit2 und Unit3 einbinden. Das geht mit der Uses Anweisung:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
 
unit Unit2; 

uses
  Unit1;

interface 

procedure xx1; 

implementation 

procedure xx1; 
begin 
  Form1.label1.caption:='xxxc'; 
end;

end.


Gruß
Tino


MiB-Agent - Sa 24.05.03 18:19
schönen dank, aber das funktioniert auch nich so recht. :?
denn dann kommt der fehler:"überkreuzender bezug zweier units (unit1)".


maximus - Mo 26.05.03 12:10
^Hi...

dann setze das 'uses' der zweiten und oder dritten unit hinter 'Implementation' :wink:


MiB-Agent - Mi 28.05.03 17:12
danke!
jetzt gehts. :D


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!