[SzakiLaci]

AC version: 14.29

[SzakiLaci]

I think I have found a way:
TForm(TsSkinProvider(tsTitleButtons(TsTitleButton(Sender).Collection).Owner).Owner )

[Support]

Hello!
Maybe it’s enough to use “Self” there?
I mean:

procedure TFoForm.sSkinProvider1TitleButtons0MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SaveMyFormsPosition(Self);

[SzakiLaci]

No.
Self = 1 form only!
That would “work” only, if I repeat that 58x on 58 different form.

This:
SaveMyFormsPosition( TForm(TsSkinProvider(tsTitleButtons(TsTitleButton(Sender).Collection).Owner).Owner ) );
works universally. It was enough to do it once, and add sSkinProvider1TitleButtons0MouseUp on the fly to each runtime-created button.

Tested.

[Support]

I understand, Ok. Your way is correct too ))

[Author]

Posts