Изменение свойств фрейма

← →
Alex7 (2006-01-06 09:16) [0]

Уважаемые мастера!
Подскажите, пожалуйста, как следует изменять
свойство фрейма при проектировании формы,
чтобы новое значение сохранялось в ходе выполнения ?
Пример:
Есть Фрейм, где Frame1.Tag =1,
Далее, при проектировании формы
в "Object Inspector" устанавливаю Frame1.Tag =0.
А при выполнении уже в FormActivate
Frame1.Tag =1, т.е. принимает исходное значение.
Хотя по логике приоритет должен отдаваться
значению Frame1.Tag =0.
Очевидно, я где-то портачу. Спасибо

← →
Fay © (2006-01-06 09:31) [1]

Нельзя ли перефразировать вопрос используя термины ООП?

← →
Alex7 (2006-01-06 10:04) [2]

Пытаюсь уточнить вопрос. Все уточнения в ().
Подскажите, пожалуйста, как следует изменять
свойство фрейма при проектировании формы,
->чтобы новое значение сохранялось в ходе выполнения (программы)?
Пример:
Есть Фрейм, где Frame1.Tag =1,
Далее, при проектировании формы
в "Object Inspector" устанавливаю Frame1.Tag =0.
->А при выполнении (программы) уже в FormActivate (т.е. после "BreakPoint"
->в обработчике события "FormActivate" вижу, что Tag=1 )
Frame1.Tag =1, т.е. принимает исходное значение.
Хотя по логике приоритет должен отдаваться
значению Frame1.Tag =0.
Очевидно, я где-то портачу. Спасибо

← →
Fay © (2006-01-06 10:14) [3]

2 Alex7 (06.01.06 10:04) [2]
> Очевидно, я где-то портачу.
Мне очевидно.
Я не смог добиться такого эффекта.

Покажи dfm фрейма, формы и код с обращением к тегу.

← →
Alex7 (2006-01-06 11:12) [4]

-------Форма "Abr"-------------------------
unit UAbr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls, Mask, UFrDBEdit,
ComCtrls, UFrNavig, ActnList, UFrDBMemo;
type
TAbr = class(TForm)
FrDBMemo1: TFrDBMemo;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Abr: TAbr;
implementation
{$R *.dfm}
procedure TAbr.FormActivate(Sender: TObject);
Var x:word;
begin
x := FrDbmemo1.Tag;
end;
end.
------------------------------------------------------------------------
------------Abr.dfm--------------------------------------
object Abr: TAbr
Left = 236
Top = 163
Width = 544
Height = 375
Caption = "Abr"
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
inline FrDBMemo1: TFrDBMemo
Left = 116
Top = 60
Width = 153
Height = 43
TabOrder = 0
end
end
-------------------------------------------------------------------------------
-------FrDBMemo.dfm------------------------------
object FrDBMemo: TFrDBMemo
Tag = 1
Left = 0
Top = 0
Width = 153
Height = 43
TabOrder = 0
object Panel1: TPanel
Left = 0
Top = 0
Width = 109
Height = 43
AutoSize = True
BevelInner = bvLowered
BevelWidth = 2
TabOrder = 0
object Label1: TLabel
Left = 4
Top = 4
Width = 48
Height = 13
Caption = "Ðåêâèçèò"
end
object DBMemo1: TDBMemo
Tag = 2
Left = 4
Top = 19
Width = 101
Height = 20
ParentColor = True
TabOrder = 0
OnEnter = DBMemo1Enter
OnExit = DBMemo1Exit
end
end
end
-------------------------------------------------------------------------------------------------
-----------------unit UFrDBMemo.pas------------------------------------------
unit UFrDBMemo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, ExtCtrls;
type
TFrDBMemo = class(TFrame)
Panel1: TPanel;
Label1: TLabel;
DBMemo1: TDBMemo;
procedure DBMemo1Enter(Sender: TObject);
procedure DBMemo1Exit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses ULukProc;
{$R *.dfm}
procedure TFrDBMemo.DBMemo1Enter(Sender: TObject);
begin
ULukProc.FocusColor(Sender);
end;
procedure TFrDBMemo.DBMemo1Exit(Sender: TObject);
begin
ULukProc.DisFocusColor(Sender);
end;
end.

Изменение свойств фрейма Найти похожие ветки