Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
 
Delphi 10.4 Sydney
 
#9

Re: Procedure in allen Unit's verwenden

  Alt 3. Okt 2009, 22:15
Delphi-Quellcode:
unit Unit3;

interface

uses
  Forms;

procedure ausrichten(f1,f2: TForm);

implementation

procedure ausrichten(f1,f2:TForm);
begin
  f2.Left:=f1.Left+f1.width+5;
  f2.Top:=f1.Top+5;
end;
In der Unit1 und Unit2 dann die Unit3 einbinden.

Benutzen kannst Du die Routine dann so:

ausrichten(Form1,Form2); Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat