1. Delphi K.Top 討論區
  2. 發言測試區
  3. TEST COLOR
線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數：828
推到 Plurk!
推到 Facebook!

TEST COLOR
 
ddy
站務副站長


發表：262
回覆：2105
積分：1169
註冊：2002-07-13

發送簡訊給我
#1 引用回覆 回覆 發表時間：2003-05-22 12:19:58 IP:61.218.xxx.xxx 未訂閱
<STYLE><!-- .cch1{background:#FFFFCC;} --></STYLE> </head> <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000"> 
[red]uses Unit2;    [green]{$R *.dfm}    [red]procedure TForm1.Button1Click(Sender: TObject);
[red]var
   MYWinCon : TWinControl;
[red]begin
   MYWinCon := FindControl(form2.Button1.Handle);
   showmessage(MYWinCon.Hint) ;    [red]end;
</body> </html>
ddy
站務副站長


發表：262
回覆：2105
積分：1169
註冊：2002-07-13

發送簡訊給我
#2 引用回覆 回覆 發表時間：2003-05-22 13:25:30 IP:61.218.xxx.xxx 未訂閱 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    end.
ddy
站務副站長


發表：262
回覆：2105
積分：1169
註冊：2002-07-13

發送簡訊給我
#3 引用回覆 回覆 發表時間：2003-05-22 13:31:21 IP:61.218.xxx.xxx 未訂閱 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    end.
ddy
站務副站長


發表：262
回覆：2105
積分：1169
註冊：2002-07-13

發送簡訊給我
#4 引用回覆 回覆 發表時間：2003-05-22 13:33:19 IP:61.218.xxx.xxx 未訂閱 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    end.
ddy
站務副站長


發表：262
回覆：2105
積分：1169
註冊：2002-07-13

發送簡訊給我
#5 引用回覆 回覆 發表時間：2003-05-22 13:42:27 IP:61.218.xxx.xxx 未訂閱 
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
var
        i:Integer;
    s:string;
begin
    for i:=0 to 5 do
    begin
                s:=s+inttostr(i);
    end;    end;    end.
ddy
站務副站長


發表：262
回覆：2105
積分：1169
註冊：2002-07-13

發送簡訊給我
#6 引用回覆 回覆 發表時間：2003-05-22 13:44:27 IP:61.218.xxx.xxx 未訂閱 
procedure TForm1.FormCreate(Sender: TObject);
var
    i:Integer;
    s:string;
begin
    for i:=0 to 5 do
    begin
        s:=s+inttostr(i);
    end;
end; //³o­O¤@個µù¸Ñ    end.
系統時間：2024-05-08 21:05:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！
5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |