AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zur Laufzeit erzeugte Editierfelder

Offene Frage von "Kurt Wallander"
Ein Thema von Kurt Wallander · begonnen am 23. Apr 2021 · letzter Beitrag vom 29. Apr 2021
 
Neumann

Registriert seit: 6. Feb 2006
Ort: Moers
548 Beiträge
 
Delphi 12 Athens
 
#15

AW: Zur Laufzeit erzeugte Editierfelder

  Alt 26. Apr 2021, 17:52
Man könnte auch ein simples Array für die Edits machen, etwa so:

Delphi-Quellcode:
tform
 edarray:array[1..10] of array[1..10] of tedit;

procedure TForm1.CreateMatrix(rang:integer);
var
     i,k : integer;
begin
  for i:=1 to rang do
   for k:=1 to rang do
   begin
     edarray[i,k]:=tedit.create(self);
     ...
     editarray[i,k].onexit:=exithandler;
   end
end;
procedure TForm1.EditExitHandler(Sender: TObject);
begin
  for i:=1 to rang do
   for k:=1 to rang do
   begin
     if tedit(sender)=edarray[i,k] then
      // Do something here
   end;

 
end
Mann sollte die Edits dann auch wieder freigeben.

Nur mal schnell hingeschrieben, kann man sicher auch schöner machen.
Ralf
Gruß vom Niederrhein
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz