delphi7编程技巧

最新推荐文章于 2024-07-22 21:25:14 发布

云中雁012345

最新推荐文章于 2024-07-22 21:25:14 发布

阅读量914

点赞数

分类专栏： delphi菜鸟成长之道

本文链接：https://blog.csdn.net/peixiaobin_blog/article/details/49965015

版权

本文分享了几个关于Delphi 7编程的实用技巧，包括设置系统主题风格的控件、在代码中使用环境变量进行父进程与子进程通信、调试方法以及实现程序以管理员权限运行。此外，还提到了简化代码结构的技巧和资源文件的使用。

摘要由CSDN通过智能技术生成

加入一句{$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].

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之类的语句在控制台输出调试信息了。

 
        program  
        Project2; 
       
        {
          
        $APPTYPE  
        CONSOLE} 
       
        uses 
       
        Forms, 
       
        Unit1  
        in  
        'Unit1.pas'  
        {Form1} 
        ; 
       
        {
          
        $R  
        *.res} 
       
        begin 
       
        Write 
        ( 
        'start!' 
        ); 
       
        Application 
        . 
        Initialize; 
       
        Application 
        . 
        CreateForm(TForm1, Form1); 
       
        Application 
        . 
        Run; 
       
        end 
        .