Button1 i Button2

← →
roma © (2004-09-30 17:02) [0]

Zdravstvuyte.Mojet vopros prostoy no dlya mne slojniy.
Na form1 samom verxu na levoy storone vervstavlyzyu button1 vipolnyayu i najimaju knopku razvernut na ves ekran form1 uvilicivaetsya na ves ekran i button1 s formoy vmeste podnimaetsya na verx v levoy uqol (eto normalno). Teper na form1 samom verxu na pravoy storone vervstavlyzyu button2 vipolnyayu i najimaju (knopku razvernut na ves ekran) form1 uvilicivaetsya no button2 ne uxodit na pravoy storoni forrm1. Kak mojno sdelat tak ctobi pri uvilicenii i umensenii form1 button2 okazalas naverxu i na pravon krayu formi?
Zaranie blaqadaryu Vsem.

← →
awp © (2004-09-30 17:46) [1]

procedure TForm1.FormResize(Sender: TObject);
begin
Button2.Left:= Form1.Width - Button2.Width;
Button2.Top:= 0;
// not edit or delete
MessageBox("I"m Lamos",mtInformation,[mbOk],0);
end;

← →
Serrrrg (2004-09-30 17:48) [2]

Разметси кнопку на panel-и, у panel-и поставь Align = alRight

← →
roma © (2004-09-30 18:31) [3]

Ya bloqadaren Vam oboem

awp © [1]
Vas kod (pravilniy otvet) rabotaet no koda vipolnyayetsya button2 cliskom tesno sjimaetsya na praviy kray i po etomu vinizu polucaetcya scpollinq Kak mojno zdelzt ctobi button1 ne prilipalas na rpaviy kray a cut-cut bilo v levo.

Serrrrg [2]

Vas sovet toje ne ploxo no у panel-и поставь Align = alRight
toqda panel ne zapolnyayet ves formu a eto ne ustraibaet a koqda Align = alClient to opyat button na meste.

Blaqodaren vsem

← →
roma © (2004-10-01 08:45) [4]

Resil problemu

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);

begin
Button2.Left:= Form1.Width -8-Button2.Width;
Button2.Top:= 0;
end;

Sposibo vsem

← →
Skeptik (2004-10-01 10:21) [5]

> roma
посмотри на свойство Anchors у кнопки и установи
Anchors := [akTop, akRight];
можно прямо в инспекторе

Skeptik (01.10.04 10:21) [5]
Sposibo za otvet.

Button1 i Button2 Найти похожие ветки