Kalde en form via en string...

I din applikation har du en global variable der hedder Application. Denne variable indeholder en liste over alle TComponents i din application.

Det du kan gøre er at lede efter en TComponent med navnet=MinString, hvis du finder en TComponent nevnet, så kan du Typecatse pointeren til en TForm, hvorefter du kan ændre alt det du vil.

Hmm...

Jeg er desværre ikke så meget Delphi-nørd så jeg forstod alt det...

Kan du ikke give et eksempel??

Hvorfor virker det andet egentlig ikke?? Det har jeg da brugt, dog i en anden sammenhæng med andre komponenter, før...!

saBA

Jeg har lavet en lille procedure der kan gøre det for dig:

procedure ColorForm(FormName: string; FormColor: TColor);
var
  i: integer;
begin
  for i := 0 to Application.ComponentCount-1 do
    begin
      if (Application.Components[i] is TForm) and (Application.Components[i].Name = FormName) then
        (Application.Components[i] as TForm).Color := FormColor;
    end;
end;


Du bruger den ved at skrive:

ColorForm('FormensNavn', clGreen);

Så bliver formen med navnet FormensNavn "malet" grøn.

/SpEeDy

Du kan ikke typecaste en String til en TForm. Det kan man ikke.

laffe>>Jeg burde ikke have alle 60 points. Jeg opretter lige et spørgsmål til dig hvor du kan få halvdelen. Du skitserede trods alt hvad han skulle gøre og jeg skrev et eksempel.

http://www.eksperten.dk/spm/190930

/SpEeDy