Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#20
  Alt 3. Jan 2003, 19:56
Moin Exciter,

dafür kannst Du den Parameter Sender verwenden.
Wenn Du vorab Deinen Edits in der Eigenschaft Tag noch eine genaue ID verpasst hast gehts sogar noch einfacher, ansonsten wirst Du wohl den Namen nehmen müssen:

z.B.

Delphi-Quellcode:
if Sender ist TEdit then
begin
  if TEdit(Sender).Name = 'Edit1then
  begin
    // Irgendetwas tun
    exit;
  end;
  if TEdit(Sender).Name = 'Edit2then
  begin
    // Irgendetwas tun
    exit;
  end;
end;
Wenn Du die Eigenschaft Tag verwendest, kannst Du das sogar ganz einfach über eine case Anweisung handeln.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat