Zdravstvujte.
Zada4a ne dat' mishke vijti za predeli aktivnogo okna.
Pomogite pozalusta s funkcijej ClipRect...
ClipRect(BoundsRect) ne rabotaet, t.k BoundsRect — TRect, a ClipRect — PRect
I 4em oni otli4ajutsja?
proboval tak:
Prect.TopLeft:=Form1.BoundsRect.TopLeft;
Prect.BottomRight:=Form1.BoundsRect.BottomRight;
... oshibka pro vipolnenii.
4to s etim delat'?
Zaranee Spasibo.

ClipRect(@BoundsRect) живет?

Slicer

Здравствуйте, Slicer [Mirkwood], Вы писали:

SM>ClipRect(@BoundsRect) живет?

Net ne zhivet
Eshe misli?

Здравствуйте, <Аноним>, Вы писали:
А>Net ne zhivet
Ну еще бы. Классная идея — у проперти адрес брать...
А>Eshe misli?

var
  R: TRect
begin
...
  R:= BoundsRect;
    ClipRect(@R);
...
end;

Здравствуйте, Sinclair, Вы писали:

S>Ну еще бы. Классная идея — у проперти адрес брать...
Ирония неуместна:
1) Наизусть я не помню, есть ли у BoundsRect геттер
2) По поводу того, что адрес проперти без геттера очень даже берется, совсем недавно был постинг (про mainform).

Slicer

Здравствуйте, Slicer [Mirkwood], Вы писали:

SM>Здравствуйте, Sinclair, Вы писали:

S>>Ну еще бы. Классная идея — у проперти адрес брать...
SM>Ирония неуместна:
SM>1) Наизусть я не помню, есть ли у BoundsRect геттер
SM>2) По поводу того, что адрес проперти без геттера очень даже берется, совсем недавно был постинг (про mainform).

Ne stoit ssoritsja...

Spasibo, vi mne o4en' pomogli!

Здравствуйте, Slicer [Mirkwood], Вы писали:
SM>Ирония неуместна:
Да ладно — мы тут едкие иногда
SM>1) Наизусть я не помню, есть ли у BoundsRect геттер
Его невозможно сделать полем.
SM>2) По поводу того, что адрес проперти без геттера очень даже берется, совсем недавно был постинг (про mainform).
Это в С++

Не-а, и в Delphi тоже был... Вот только проверить я не могу, сижу тут, как дурачок, всем на слово верю

Slicer

Да мы не ссоримся, это у нас свои заморочки Просто они едкие иногда


Slicer

Здравствуйте, Slicer [Mirkwood], Вы писали:

SM>Не-а, и в Delphi тоже был... Вот только проверить я не могу, сижу тут, как дурачок, всем на слово верю
Виноват. Косячники! Это же прямая дыра...

type
  TForm1 = class(TForm)
  private
    FTest: integer;
  published
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  property Test: integer read FTest;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  P: ^Integer;
begin
  P:= @Test;
  P^:= 15; // <-- !!!!!!
end;

Будет честно, если ты и сюда

Автор: Leonid Troyanovsky
Дата: 22.11.03

баллы кинешь

Slicer

ИМХО надо примерно так:
http://www.rsdn.ru/Forum/Message.aspx?mid=452978&amp;only=1

Автор: Slicer [Mirkwood]
Дата: 23.11.03

Slicer