Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TEdit zur Laufzeit (https://www.delphipraxis.net/25716-tedit-zur-laufzeit.html)

danu 11. Jul 2004 04:10


TEdit zur Laufzeit
 
Hallo,
ich erstelle im OnCreate meiner Form ein Array aus TEdits.
Wenn ich später die Eigenschaften der TEdits verändere zB Visible auf false setzte, ändert sich leider nix auf dem Bildschrim. Warum nur??

alcaeus 11. Jul 2004 04:40

Re: TEdit zur Laufzeit
 
Ich weiß ja nicht wie du es gemacht hast, aber bei mir funktionierts so:

Delphi-Quellcode:
...
  private
    { Private declarations }
    Edits: array[0..9] of TEdit;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 9 do
  begin
    Edits[i] := TEdit.Create(Self);
    with Edits[i] do
    begin
      Top := 32*i+8;
      Left := 8;
      Height := 24;
      Width := 105;
      Parent := Form1;
      Visible := True;
    end;
  end;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
  Edits[Tag].Visible := not Edits[Tag].Visible;
  Tag := (Tag+1) mod 10;
end;
Die Edits werden nach der Reihe bei einem Klick aufs Formular zuerst ausgeblendet, anschließend wieder eingeblendet.

Greetz
alcaeus

himitsu 11. Jul 2004 06:22

Re: TEdit zur Laufzeit
 
weil es ja nur beimj späteren Zugriff ist ... wie speicherst du denn die TEdit (ihre Zeiger, die du beim erstellen bekommst), oder wie versuchst du sie wiederzufinden (z.B. FindComponent).

Ich vermute mal, das es dort ein/zwei Probleme gibt.

semo 12. Jul 2004 12:46

Re: TEdit zur Laufzeit
 
@ danu: was soll denn nun genau passieren???


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz