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 Text in Edit automatisch eintrageb (https://www.delphipraxis.net/105410-text-edit-automatisch-eintrageb.html)

Kutter111 21. Dez 2007 09:17


Text in Edit automatisch eintrageb
 
Hallo,
ich habe auf meiner Form1 eine ListBox und mehrere Edits. Die Einträge kommen aus einer ini-Datei. Wenn ich auf ein Item der ListBox klicke werden die Values der Section der ini-Datei in die Edits eingetragen. Die Einträge erhält die ini-Datei aus den Einträgen die ich in der Form2 in Edits eingebe und den Button Speichern drücke. Damit schließt sich das Form2-Fenster. Nun mein Problem: Dieser letzte Eintrag soll nun in der Form1.LisBox1 automatisch ausgewählt werden und die Edits mit den Values der ausgewählten Section befüllt werden.
Weiß jemand eine Lösung?
OnClick ListBox habe ich schon versucht, klappt aber nicht.

Vielen Dank im Voraus

DeddyH 21. Dez 2007 09:24

Re: Text in Edit automatisch eintrageb
 
Zitat:

Zitat von Kutter111
Dieser letzte Eintrag soll nun in der Form1.LisBox1 automatisch ausgewählt werden und die Edits mit den Values der ausgewählten Section befüllt werden.

Auswählen kannst Du den Eintrag, indem Du den ItemIndex setzt. Das Befüllen der Edits würde ich in eine eigene Prozedur auslagern, die Du nach dem Setzen des ItemIndex aufrufst.
Delphi-Quellcode:
procedure TForm1.FillEdits;
begin
  if ListBox1.ItemIndex > -1 then
    begin
      Edit1.Text := 'Bla';
      Edit2.Text := 'Blubb';
      //...etc.
    end;
end;

procedure TForm1.Irgendwas;
begin
  ListBox1.ItemIndex := ListBox1.Items.IndexOf(DeinString);
  FillEdits;
end;
So in der Art.

Kutter111 21. Dez 2007 13:14

Re: Text in Edit automatisch eintrageb
 
Hallo DeddyH,
Danke erstmal für die schnelle Antwort.
Das werde ich gleich versuchen umzusetzen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:39 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