delphi7编程技巧

加入一句{$R WindowsXP}，控件具有系统主题风格。

implementation


{$R *.dfm}
{$R windowsXP}


{ TMyThread }

==============================

procedure TForm1.Button1Click(Sender: TObject);
const
  {$I str.inc}
begin
   showmessage(MSG);
end;

文件 str.inc

 MSG = 'abc';

=============================

设置标题可以用[color=#FF0000]SetTextBuf('abc')或Text:='abc'[/color].

Delphi/Pascal code

?

1 2 3 4 5 6 7

procedure  TForm1 . FormCreate(Sender: TObject); begin    SetTextBuf( 'abc' ); ShowMessage(Text); Text :=  'def' ; ShowMessage(Caption) end ;

新建一个普通工程，然后在工程源文件里，在program一句的下一行加上{$APPTYPE CONSOLE}，这样就可以在程序中使用Write之类的语句在控制台输出调试信息了。

====================================

7

8

9

10

11

12

@H_502_178@ 13

14

15

16

program  Project2;

 

{ $APPTYPE  CONSOLE}

 

uses

Forms,

Unit1  in  'Unit1.pas'  {Form1} ;

 

$R  *.res}

 

begin

   Write ( 'start!' );

Application Initialize;

CreateForm(TForm1, Form1);

Run;

.