Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

Left = 8

Top = 24

Width = 121

Height = 20

MaxLength = 10

TabOrder = 0

Text = '0'

end

 end

 object Panel3: TPanel

Left = 16

Top = 144

Width = 153

Height = 49

BevelInner = bvLowered

BevelOuter = bvNone

TabOrder = 2

object Label6: TLabel

Left = 8

Top = 8

Width = 48

Height = 13

Caption = 'Значение 3:'

end

object Edit3: TEdit

Left = 8

Top = 24

Width = 121

Height = 20

MaxLength = 10

TabOrder = 0

Text = '0'

end

 end

end

{ ***

КОНЕЦ КОДА DDEDLG.DFM *** }

{ *** НАЧАЛО КОДА DDEDLG.PAS *** }

{***************************************************}

{ }

{ Delphi 1.0 DDEML Демонстрационная программа }

{ Copyright (c) 1996 by Borland International }

{ }

{***************************************************}

{ Данный модуль определяет интерфейс сервера DataEntry DDE

(DDEMLSRV.PAS). Здесь определены имена Service, Topic,и Item, поддерживаемые сервером, и также определенаструктура данных, которая может использоватьсяклиентом для локального хранения "показательных" данных.

Сервер Data Entry Server делает свои "показательные"данные доступными в текстовом виде (cf_Text)сформированными в виде трех различных топика (Topics).Клиент может их преобразовывать в целое дляиспользования со структурой данных, которая здесь определена.}

unit Ddedlg;

interface

uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons, StdCtrls, Mask, ExtCtrls;

type TDataEntry = class(TForm)

 OKBtn: TBitBtn;

 CancelBtn: TBitBtn;

 Bevel1: TBevel;

 Panel2: TPanel;

 Label1: TLabel;

 Label2: TLabel;

 Panel1: TPanel;

 Label4: TLabel;

 Panel3: TPanel;

 Label6: TLabel;

 Edit1: TEdit;

 Edit2: TEdit;

 Edit3: TEdit;

 procedure OKBtnClick(Sender: TObject);

 procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

S1, S2, S3: String;

 { Public declarations }

end;

var DataEntry: TDataEntry;

implementation

{$R *.DFM}

procedure TDataEntry.OKBtnClick(Sender: TObject);

begin

 S1 := Edit1.Text;

 S2 := Edit2.Text;

 S3 := Edit3.Text;

end;

procedure TDataEntry.FormShow(Sender: TObject);

begin

 Edit1.Text := '0';

 Edit2.Text := '0';

 Edit3.Text := '0';

 Edit1.SetFocus;

end;

end.

{ ***

КОНЕЦ КОДА DDEDLG.PAS *** }

 

Как добавить группу в Program Manager?

Delphi 1 

interface

procedure CreateGroup;

implementation

procedure TSetupForm.CreateGroup;

{ Для установки группы в Program Manager используем компонент TProgMan }

var

 ItemList: TStringList;

 GroupName: String;

 ItemName: String;

 i: word;

begin