Вниз
Скачать: CL | DM;

Как сохранять позицию компонетв после закрытия программы   Найти похожие ветки 

← →
-=SV=-   (2009-11-05 20:05) [0]

Доброе время суток в программе реализоват перетаскивание копонентов по форме с помощью кода:
procedure TForm1.sBitBtn7MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
const
 SC_DRAGMOVE = $F012;
begin
 ReleaseCapture;
 sBitBtn7.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;


И после закрытия программы всё стаёт на свои места.
Как сохранить на том месте как оставил?


← →
Kolan ©   (2009-11-05 21:28) [1]

Не как, а где?

В ини-файле, в базе...


← →
Медвежонок Пятачок ©   (2009-11-05 21:35) [2]

Как сохранять позицию

Разве это все?
Сохранить можно в ста местах сотней способов.

Но после закрытия при следующем запуске все контролы снова встанут на места определенные в dfm


← →
TIF ©   (2009-11-05 22:14) [3]

По способы сохранения см. тут, например:
http://delphimaster.net/view/2-1257362090/

Алгоритм:
* При выходе из программы записать в выбранный источник хранения (файл/реестр) координаты компонентов
* При запуске - считать оттуда записанные координаты и присвоить их компонентам


← →
Германн ©   (2009-11-06 02:14) [4]

Для самых ленивых подойдёт компонент из RxLib TFormStorage.


← →
-=SV=-   (2009-11-06 12:07) [5]


> Для самых ленивых подойдёт компонент из RxLib TFormStorage.


А теперь подробней.что для чего он нужен,и как им пользоватся и где его взять.


← →
Amoeba ©   (2009-11-06 12:41) [6]

http://www.delphiplus.org/
раздел Бесплатно | Rx Library


← →
Amoeba ©   (2009-11-06 12:44) [7]


> как им пользоватся

Поместить на форму и настроить нужные св-ва. Подробности в справке к библиотеке.


← →
-=SV=-   (2009-11-06 13:42) [8]

В каком способе меньше и эфективнее код использовать?


← →
Медвежонок Пятачок ©   (2009-11-06 14:17) [9]

меньше кода тогда, когда вообще не программируешь



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c
4-1225873060
Андрей
2008-11-05 11:17
2009.12.27
Скопировать файл в буфер обмена


15-1256615376
d@nger
2009-10-27 06:49
2009.12.27
Cisco и модем


2-1257922755
stas
2009-11-11 09:59
2009.12.27
TWEBBrowser скрыть ошибки


1-1230135789
du_hast
2008-12-24 19:23
2009.12.27
Нужно получить кол-во Chart-ов в текущем Excel Sheet-е


2-1257545435
Igorishe
2009-11-07 01:10
2009.12.27
передача метода




   Наверх