Проблем с конструктором

← →
Боян Георгиев (2004-09-07 19:01) [0]

Здравствуйте!

Вот клас:

type TPromptEdit = class(TEdit) private { Private declarations } fPrompt: string; procedure SetPrompt(const Value: string); procedure EditEnter(var Message: TMessage); message CM_ENTER; procedure EditExit(var Message: TMessage); message CM_EXIT; protected { Protected declarations } public { Public declarations } published { Published declarations } constructor Create(AOwner: TComponent); property Propmt: string read fPrompt write SetPrompt; end; procedure Register; implementation { TPromptEdit } procedure Register; begin RegisterComponents("Standard", [TPromptEdit]); end; procedure TPromptEdit.SetPrompt(const Value: string); begin fPrompt := Value; if Text = "" then Text := fPrompt; end; procedure TPromptEdit.EditEnter(var Message: TMessage); begin inherited; if Text = fPrompt then Text := ""; end; procedure TPromptEdit.EditExit(var Message: TMessage); begin inherited; if Text = "" then Text := fPrompt; end; constructor TPromptEdit.Create(AOwner: TComponent); begin inherited; Text := fPrompt; end; end.

Вот код инстанции:
object PromptEdit1: TPromptEdit
Left = 8
Top = 440
Width = 121
Height = 21
TabOrder = 55
Text = "PromptEdit1"
Propmt = "Enter your name"
end

Проблем то, что Text := fPrompt; в конструкторе не работает. Когда форма создается, текст едит-а "PromptEdit1". Как можно задать начальная стойность свойства Text в моменте создании обекта?

← →
Fay © (2004-09-07 19:05) [1]

Text := Prompt ?

← →
Ega23 © (2004-09-07 19:08) [2]

Promt:=""; ?

← →
Fay © (2004-09-07 19:09) [3]

Не, это меня колбасит. 8)
А где constructor Create(AOwner: TComponent); override; ?

← →
Ega23 © (2004-09-07 19:12) [4]

procedure TPromptEdit.SetPrompt(const Value: string);
begin
fPrompt := Value;
if Text = "" then Text := fPrompt;
end;

Вот этот вот кусок настораживает....
Точнее if....

← →
Боян Георгиев (2004-09-07 19:12) [5]

← →
Боян Георгиев (2004-09-07 19:15) [6]

Я Prompt сменяю в Object inspector но он не сменяется в Realtime

Проблем с конструктором Найти похожие ветки