Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
3. Jan 2003
Moin Exiter,
wenn Du so fragst: Gar nicht. ;-)
Du musst die Routine als solche schon im Programm haben, und weist sie dann zur Laufzeit zu.
Vorher muss die Routine natürlich in der Lage sein unabhängig vom verwendeten Edit zu sein:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Var User : String;
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
3. Jan 2003
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.
if Sender ist TEdit then
begin
if TEdit(Sender).Name = 'Edit1' then
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian Seehase,
2. Jan 2003
Moin Chris,
Deine Punkte 1 und 2 sind aber identisch.
In beiden Fällen handelt es sich um eine OnClick Routine.
Im ersten Falle als Methode eines Formulares (die dann einem Button zugewiesen wird), im zweiten die eines Button. (bei der ersten gehört ja wohl auch noch ein TForm1. o.ä. davor ;-))