Unit zu Unit.

[thomasvonmuenster1]

Ich möchte auf eine procedure einer anderen Unit zugreifen.
unit DbDatesF;

Delphi-Quellcode:

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  If (PageControl1.ActivePageIndex = 0) and (Edit3.Text <> 'key') Then AllowChange := False;
end;

Möchte gerne auch von meiner unit help das PageControll freigeben.
Meine versuche sind alle gescheittert.

[himitsu]

Da ja PageControl1Changing in TForm1 eingebunden ist, mußt du auch angeben, wo sich diese Prozedur befindet:

Delphi-Quellcode:

Unit Help;

...

Implementation
Uses DbDatesF;  // Unit einbinden, auf die du zugreifen willst

...
Begin 
  Form1.PageControl1Changing(Sender, AllowChange); 
End;

[thomasvonmuenster1]

Uses DbDatesF; hatte ich schon.

Mit Form1.PageControl1Changing(Sender, AllowChange);

sagt er Undefinierter Bezeichner AllowChange.
Kann es sein das ich in

Delphi-Quellcode:

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

Eintragen muß wie eine Klasse?

[BluesKid]

Zitat:

Zitat von himitsu

Delphi-Quellcode:

Unit Help;

...

Implementation
Uses DbDatesF;  // Unit einbinden, auf die du zugreifen willst

...
Begin 
  Form1.PageControl1Changing(Sender, true); 
End;

gehts so?

schönen Gruß

Sam

[thomasvonmuenster1]

Fehler! Habe ich noch nie gehört!
Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen!

[BluesKid]

Delphi-Quellcode:

var aBoolVar : Boolean;
Begin
  aBoolVar := true;
  Form1.PageControl1Changing(Sender, aBoolVar);
End;

dann versuch das mal :-)

ächz...ich geh jetzt Kaffe holen..

[thomasvonmuenster1]

Der Fehler ist weg, aber das PageControl bleibt immer noch zu!
Jetzt liegt es an Edit3 das er nicht findet in unit DbDatesF;.
Edit3 liegt in unit help. Habe aber uses help in DbDatesF gemacht.
Muß Edit3 auch wieder auf From1 zuweisen?

[Sharky]

Zitat:

Zitat von thomasvonmuenster1

...Muß Edit3 auch wieder auf From1 zuweisen?

Du musst den Namen des Formulares davorstellen auf dem Edit3 liegt.

[thomasvonmuenster1]

so geht das nicht!
TForm2.Edit3
wie dann?

[Sharky]

Zitat:

Zitat von thomasvonmuenster1

so geht das nicht!
TForm2.Edit3
wie dann?

Das Formular heist ja bestimmt Form2 und nicht TForm2