Hallo Leute,
um meine FormUnit etwas übersichtlicher zu gestalten, möchte ich gern
die Ereignisse 'KeyDownevent' für Editfelder und 'Clickevent' für dynamisch erstellte Labels
in eine 2.Unit auslagern und diese dann einbinden:
Delphi-Quellcode:
{OnKeyDown Methode - den Edits im Objektinsp. zugewiesen}
procedure TForm1.EditKeyDownEvent(Sender:TObject; var Key: Word;
Shift: TShiftState);
begin
if (Sender is TEdit)and(Key=VK_Return) then
begin
LblColorSwap;
Label9.Top:=TEdit(Sender).Top;
Label9.Caption:= '<- Focus';
Edit1.maxlength :=5;
Edit2.maxlength :=5;
if (Sender =Edit1)and (length(Edit1.text)=5) then
...
...
{das Klick Ereignis}
procedure TForm1.ClickEvent(Sender: TObject);
begin
if (Sender is TLabel) then
with TagArray[(Sender as TLabel).Tag] do
begin
LblTmp:=TNum;
Label1.Caption:= inttostr(TNum);
Label2.caption:='TagArray.Anw: '+ Anw;
Label3.Caption:='TagArray.abwBegin: '+ abwBegin;
Label4.Caption:='TagArray.abwEnde: '+ abwEnde;
Label5.Caption:='TagArray.abwZeit: '+ abwZeit;
Label10.Caption:='TagArray.TgName: '+ TgName;
Label13.Caption:= inttostr(WerkTag)+'. Werktag';
Edit1.Text:=abwBegin;
Edit2.Text:=abwEnde;
Edit3.Text:=abwZeit;
Edit4.Text:=Anw;
end;
LblColorSwap;
end;
Habt ihr einen Ansatz, oder müssen diese Events in der Formunit bleiben?