перезапуск форми
У мене дві форми. Треба зробити так, щоб при натисканні кнопки на першій формі запускалася друга форма (не просто з'являлася, а запускалася), і так при кожному натисканні на кнопку. Підкажіть як це можна здійснити. Заздалегідь вдячний.
procedure TForm1.Button1Click (Sender: TObject);
var
# XA0; newForm. TForm;
begin
# XA0; newForm: = TForm.Create (Application);
# XA0; newForm.Show;
end;
with TForm2.Create (Application) do begin
# XA0; Show;
# XA0; // other needs
# XA0; end;
Дякую звичайно, але справа в тому, що у мене на другий формі купа компонентів, і якщо використовувати методи описані вище то вони працюють тільки при першому запуску, а в наступних видається помилка що у мене там типу чета неправильно.
А що значить запускалося? Це ж не додаток.
А що саме неправильно, і які компоненти?
> (Не просто з'являлася, а запускалася)
У тебе і так все запущено :)
Чим, по-твоєму, має отлічатьться "запуск", від "показати", а то метод показати у форми є і все користуються, а ось "запустити" ти перший забажав.
Скільки таких форм має бути при многогратном натисканні кнопки? Все абсолютно однакові?
> Видається помилка що у мене там типу чета неправильно.
невже прямо так і пише, мовляв, "у тебе там типу чета неправильно"?
А ти знаєш, що глобальні змінні це велике зло? Здається у тебе це зла дуже багато!
Автоматично створювані середовищем розробки змінні Form1, Form2. НЕ преднозначени для використання в методах відповідних форм, за великим рахунком, таким чином розробники з Борланда приколюються над початківцями ;-)
Пам'ять: 0.73 MB
Час: 0.298 c