Einzelnen Beitrag anzeigen

Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#1

Code in andere Unit auslagern

  Alt 3. Nov 2005, 13:31
Hallo zusammen
Zuerst mal ein Dankeschön an alle die immer sofort helfen... macht wirklich Spass so...!

Folgendes Problem:

Ich habe folgenden Code in einer Unit:

Delphi-Quellcode:
var
  Compo: TComponent;
begin
   Compo:= FindComponent('edit1');
   if compo<> nil
   then
   begin
    TWinControl(Compo).TabStop := False;
   end;
end;
Wie kann ich diesen Code in eine andere Unit auslagern, damit ich diesen Code nicht redundant anlegen muss?
Ich möchte immer das Form übergeben, mit dem bei gewissen Feldern der Tabstop auf False gesetzt wird.
Die Komponenten die auf Tabstop False müssen lade ich von der Datenbank.

Ich möchte dies eigentlich so aufrufen können:

LoadTabStop(frm_Unit1);

Unit1 ist vom Typ TForm.

Wie sieht jetzt syntax mässig die LoadTabStop aus....


Weiss da jemand Rat...? Ich denke es geht hier nur um den richtigen Syntax...

Danke!
  Mit Zitat antworten Zitat