各位先進大家好： 請問我如果有一段程式(需要傳值)，如果在FROMA使用，當FROMA呼叫FROMB時，在FROMB也要使用這段程式，那我需要用PROCEDURE或是FUNCTION做，在FROMA與FROMB各需要做怎樣的宣告，謝謝！

如果你不是MDI FORM那只要    Unit1.PAS    

FORMA    type
  TFormA = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    SS_ID: String;   //<--把變數放在這
  end;    FORMB    interface    uses
  Unit1;    

然後在程式裡你就可以 FORMA.SS_ID 來使用了

假設 FormA 是 Unit1; FormB 是 Unit2; 你要用的 Procedure or Function 叫 ShareMe    STEP 1:    保持良好的習慣，新增一個 unit 讓這二個 form 用 這個 Unit 自己取名字就行啦，這裡先叫它 Share.pas    STEP 2:    Share.pas 大致上長這樣:

unit Share;    interface    procedure ShareMe; // Interface，只做函數宣告    implementation    procedure ShareMe; // 詳細的程式碼寫在 implementation
begin
  ..............
end;    end.

STEP 3: 因為 FormA & FormB 都要用 故分別在他們的 uses 裡加上 Share STEP 4: 這樣就可以直接呼叫 ShareMe 了

jimmy_wei前輩您好： 謝謝您的回覆 您的意思是這樣嗎? 因為小弟初接觸視窗程式，很多都很模糊 FROMA(F_MAIN) public function ScreenCenter(w:integer;h:integer;l:integer;t:integer):integer; function TF_Main.ScreenCenter(w,h,l,t:integer):integer; var OldWidth,OldHeight:integer; begin; OldWidth := GetSystemMetrics(SM_CXSCREEN); OldHeight := GetSystemMetrics(SM_CYSCREEN); l:=(OldWidth - w)div 2; t:=(OldHeight - h)div 2; end; FROMB F_Main.ScreenCenter(self.Width,self.Height,self.Left,self.Top); 這樣值好像傳不回來 不知道錯在哪裡? 我是要做一段讓FROM可以置於螢幕中的程式

wyndog前輩您好： 感謝您給我這麼好的觀念，您的意思是不是說把相同類型的副程式放再同一個.PAS檔(這是不是稱為函式庫?)，方便將來運用。 謝謝！

marklue你好...    1.別叫我前輩,聽起來怪怪怪,真不習慣 2.如果你只是想把form置中,可以把Position設成poScreenCenter即可 3.我看不出來你的程式想要回傳的是什麼值    FROMA(F_MAIN)

public
  function ScreenCenter (w:integer;h:integer;l:integer;t:integer):integer;    function TF_Main.ScreenCenter(w,h,l,t:integer):integer;
var
  OldWidth,OldHeight:integer;
begin;
  OldWidth := GetSystemMetrics(SM_CXSCREEN);
  OldHeight := GetSystemMetrics(SM_CYSCREEN);
  l:=(OldWidth - w)div 2;
  t:=(OldHeight - h)div 2;
  Result:= 你要回傳的值  //--沒有這一行什麼都不會回傳呀
end;    FROMB    F_Main.ScreenCenter(self.Width,self.Height,self.Left,self.Top);    如果要我寫我會這樣寫    unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ScreenCenter(Form: TForm);
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
var
  MyForm: TForm;
begin
  MyForm:= TForm.Create(Self);
  MyForm.Show;
  ScreenCenter(MyForm);
end;    procedure TForm1.ScreenCenter(Form: TForm);
begin
  Form.Left:= Round((GetSystemMetrics(SM_CXSCREEN)-Form.Width)/2);
  Form.Top:= Round((GetSystemMetrics(SM_CYSCREEN)-Form.Height)/2);
end;    end.    你參考看看吧

發表人 - jimmy_wei 於 2005/03/23 16:46:59

jimmy_wei 您好： 1.謝謝您！原來置中這麼簡單，我本來是傳入FROM的寬.高，用解析度的寬高減掉，在除以2，商再傳回來... 2.您指的 Result:= 你要回傳的值 如果我傳入4個引數(w,h,l,t)，其中兩個要回傳(l,t) 請問Result:=後面要怎樣輸入?

marklue你好: 我有寫了一小段程式給你,再上一篇後面我加上去的 如果你要一次回傳兩個或多個可以用指標的方法    ex

procedure TForm1.Scre(var a, b, c, d: Integer);
begin
  a:= 1;
  b:= 2;
  c:= 3;
  d:= 4;
end;    procedure TForm1.Button2Click(Sender: TObject);
var
  a, b, c, d: Integer;
begin
  Scre(a, b, c, d);
  ShowMessage(IntToStr(a) ' ' IntToStr(b) ' ' IntToStr(c) ' ' IntToStr(d));
end;

引言: 您的意思是不是說把相同類型的副程式放再同一個.PAS檔(這是不是稱為函式庫?)，方便將來運用。

對，這樣就可以重複應用了

jimmy_wei您好： 謝謝您講這麼詳細，這樣我比較有概念了！ 謝謝！