Zugriff auf Label aus "externer" Unit (neu gefragt)

[dominikkv]

Zitat von hoika:

Delphi-Quellcode:

  with MyFrmMain as TFrmMain(objForm) do    // die vorsichtigen checken den richtigen Typ
  begin
    MyFrmMain .Label1.Caption:= 'bla';
  end;

wtf?
du meinst wohl

Delphi-Quellcode:

with MyFrmMain do    
  begin
    Label1.Caption:= 'bla';
  end;  // oder
with TFrmMain(objForm) do   
  begin
    Label1.Caption:= 'bla';
  end;  // oder
with objForm as TFrmMain do    
  begin
    Label1.Caption:= 'bla';
  end;

@MisterCP: wenn du die Unit im Implementation-Teil bekannt gibst hast du keine zirkuläre Unitreferenz:

Delphi-Quellcode:

interface
  // bla
implementation
  uses 
    UnitMitTFrmMain;

procedure ChangeLanguage;
begin
  frmMain.lblName01.caption = getlngString(LngNr, 1004);
  frmMain.lblDescr01.caption = getlngString(LngNr, 1008);
//... usw. 
end;