[Aristarh Dark]

Чота туплю совсем.
Создаю метку:

Код:

  //Legend
  with TLabel.Create(FSMSOwner) do
    begin
      Parent:=(FSMSOwner as TWinControl);
      Name:=Format('Legend%d',[FValueCount]);
      Caption:=Title;
      Alignment:=taLeftJustify;
      AutoSize:=False;
      Left:=Xb;
      Top:=FBlockStart.Y;
      Width:=allWidth div 2;
      Height:=Canvas.TextHeight(Title)+4;
      hLegend:=Height;
      SetLength(FObjectsInfo,Length(FObjectsInfo)+1);
      FObjectsInfo[High(FObjectsInfo)].Control:=????
    end;

как получить указатель на нее в том месте где вопросики?

[robt]

Сообщение от Aristarh Dark

как получить указатель на нее в том месте где вопросики?

не пользоваться with, никогда

[Aristarh Dark]

Сообщение от robt

не пользоваться with, никогда

очень полезно

[Aristarh Dark]

Вот он код моей мечты:

Код:

 //Legend
  SetLength(FObjectsInfo,Length(FObjectsInfo)+1);
  FObjectsInfo[High(FObjectsInfo)].Control:=TLabel.Create(FSMSOwner);
  with FObjectsInfo[High(FObjectsInfo)].Control as TLabel do
    begin
      Parent:=(FSMSOwner as TWinControl);
      Name:=Format('Legend%d',[FValueCount]);
      Caption:=Title;
      Alignment:=taLeftJustify;
      AutoSize:=False;
      Left:=Xb;
      Top:=FBlockStart.Y;
      Width:=allWidth div 2;
      Height:=Canvas.TextHeight(Title)+4;
      hLegend:=Height;
      FObjectsInfo[High(FObjectsInfo)].PLeft:=Left div ((FSMSOwner as TControl).ClientWidth div 100);
      FObjectsInfo[High(FObjectsInfo)].PWidth:=Width div ((FSMSOwner as TControl).ClientWidth div 100);
    end;

[robt]

Сообщение от Aristarh Dark

очень полезно

это когда нибуть спасет тебе жизнь

[NumLock]

Сообщение от Aristarh Dark

Вот он код моей мечты:

жаль что так указатель мы все-таки не получили

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  obj: array of TObject;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(obj, 2);
  with TLabel.Create(Self) do
  begin
    asm
      push ebx
      mov ebx, obj
      mov [ebx], eax
      pop ebx
    end;
    Caption:='TLabel1';
    Parent:=Self;
    Left:=100;
    Top:=100;
  end;
  with TLabel.Create(Self) do
  begin
    asm
      push ebx
      mov ebx, obj
      mov [ebx+$04], eax
      pop ebx
    end;
    Caption:='TLabel2';
    Parent:=Self;
    Left:=200;
    Top:=200;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TLabel(obj[0]).Caption:='Caption1';
  TLabel(obj[1]).Caption:='Caption2';
end;

[Aristarh Dark]

NumLock, читал я про этот вариант. Пишут что с равной вероятностью указатель может быть как в стеке так и в регистре...

[robt]

хочууказатель:=@блабла;

[Aristarh Dark]

robt, п 3.3. правил, пока только напоминаю...

[robt]

Сообщение от Aristarh Dark

robt, п 3.3. правил, пока только напоминаю...

в чем претензия? баюсь,баюсь
или мы не знаем для чего @ ?

[Страдалецъ]

Я! Я! Знаю! Это такая штучка в почте пишется! Вот!