Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты! Есть 2 формы, главная Form1, создаю 2ю вот так:

var
   F:TForm;
begin
      if not Assigned(Form2) then
        F:=TForm2.Create(Self);
        {вот здесь прописывал расположение окна}
        //F.Top := 126;
        //F.Left := 405;
        F.Show;
end;

Вопрос задал: casio (статус: Посетитель) Вопрос отправлен: 21 декабря 2011, 14:01 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: DNK

Здравствуйте, victor_as!
Нужно перевести координаты на главной форме в координаты экрана.

var
   F:TForm;
   p: TPoint;
begin
    if not Assigned(Form2) then
        F:=TForm2.Create(Self);
        {вот здесь прописывал расположение окна}
        p.Y := 126;
        p.X := 405;
        p := ClientToScreen(p);
        F.Top := p.Y;
        F.Left := p.X;
        F.Show;
end;

Ответ отправил: DNK (статус: Студент) Время отправки: 21 декабря 2011, 14:08 Оценка за ответ: 5 Комментарий к оценке: Все работает спасио )

Мини-форум вопроса

min@y™ (статус: Доктор наук), 21 декабря 2011, 14:25 [#1]: А нафига if not Assigned(Form2)? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

21 декабря 2011, 14:32: Статус вопроса изменён на решённый (изменил автор вопроса — casio)

bugmenot (статус: 3-ий класс), 21 декабря 2011, 21:36 [#2]: Цитата (min@y™): А нафига if not Assigned(Form2)? Видимо, где-то делается FreeAndNil, или следующим вопросом будет "пачиму то куча течет, то кидает AV" виконання програми розпочинається з того самого мiсця, де призупинилося.

min@y™ (статус: Доктор наук), 22 декабря 2011, 08:09 [#3]: Цитата (bugmenot): Видимо, где-то делается FreeAndNil, или следующим вопросом будет "пачиму то куча течет, то кидает AV" Так проверяется-то глобальная переменная (Form2), а используется локальная (F). Не понимаю. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.