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

Расположение форм   Найти похожие ветки 

← →
Aszbed   (2002-08-19 06:14) [0]

У МЕНЯ ПРОБЛЕМА С ФОРМАМИ:
ФРАГМЕНТ КОДА:
PROCEDURE BUTTON1.CLICK
BEGIN
FORM2.SHOWMODAL
END;
ДРУГОЙ ФРАГМЕНТ (В ДРУГОЙ ФОРМЕ)
PROCEDURE BUTTON2.CLICK
BEGIN
FORM2.CLOSE;
FORM1.SHOW;
END;
НО FORM1 НЕ РЕАГИРУЕТ НИ НА КАКИЕ ДЕЙСТВИЯ??? ЧТО ЭТО Я НЕПРАВИЛЬНО ДЕЛАЮ???


← →
Opuhshii ©   (2002-08-19 06:54) [1]

PROCEDURE BUTTON1.CLICK???
с формами ли проблема?,.. ты свою кнопку пишешь?,...
interface
....
TForm1= class(TForm)
...
procedure BUTTON1Click(Sender:Tobject);

implementation

uses Unit2; // или где у тебя описана Form2..
procedure TForm1.BUTTON1Click(Sender:Tobject);
begin
Form2.ShowModal;
end;


← →
npAKtuk ©   (2002-08-19 07:03) [2]

А что насчет вида FORM1?

Вообще-то достаточно Form2.Close...если у тебя Form1 как fsMDI-Parent или fsNormal. И ещё проверь Default Monitor...Form1 (если она главная) надо поставить как ActiveForm, а Form2(как модальная форма) как Dialog.

Пробуй :)





← →
Aszbed   (2002-08-19 07:14) [3]

npAKtuk © ВОТ именно!!!! в других формах хватало только Form2.close ... а в этой уже не хватает :(((



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

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



Память: 0.45 MB
Время: 0.009 c
7-96000
Dim0S
2002-06-16 16:49
2002.08.29
работа с СОМ портом в NT


8-95910
darha
2002-04-23 22:14
2002.08.29
mp3


14-95956
Malder
2002-07-30 00:21
2002.08.29
Красивые формы


1-95738
Aszbed
2002-08-19 06:14
2002.08.29
Расположение форм


1-95800
Butcher
2002-08-20 01:35
2002.08.29
TCanvas.RecText (Текст прижать к правом краю)




   Наверх