|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
||||
|
||||
ваш исходник где вчера дали работает
а я сделал идентичный по заполнению обеех форм и шиш мне в чем секрет без того што у меня мозгов не хватает? ) не переставай удивляться обычному
|
#32
|
||||
|
||||
Вот и покажите те куски кода, где у вас это происходит.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#33
|
||||
|
||||
вот коды моих форм:
но они идентичны синтаксически с кодами из вашего исходника. мои вот: Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; SpeedButton1: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.SpeedButton1Click(Sender: TObject); begin Hide; Form2.N2 := 196; Form2.Show; end; end. Код:
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Label1: TLabel; Label2: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } N2 : Integer; end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.FormShow(Sender: TObject); begin Label2.Caption := IntToStr(N2); end; procedure TForm2.Button1Click(Sender: TObject); begin Hide; Form1.Show; end; end. просто может надо не только код записать но и произвести какие то операции в свойствах форм и кнопок? не переставай удивляться обычному
Последний раз редактировалось roland196, 25.02.2015 в 23:13. |
#34
|
||||
|
||||
Мдя, может это шутки TurboPascal-я? У меня его нет.
Нет, ничего больше делать не требуется. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#35
|
||||
|
||||
на днях скачал Embarcadero RAD Studio XE7 Architect
сильно такое от Turbo Delphi 10 отличается, стоит устанавливать как посоветуете? и, строчка procedure FormShow(Sender: TObject); она у меня очень неестественно вставляется - вообще каким образом она в форме поевляется? не переставай удивляться обычному
Последний раз редактировалось roland196, 25.02.2015 в 23:23. |
#36
|
||||
|
||||
Не ставил.
Из вопроса теперь понятно почему не работает. В свойствах формы (Object Inspector) щёлкаем мышкой по событию OnShow и получаем заготовку: Код:
procedure TForm2.FormShow(Sender: TObject); begin end; её заполняем нужным кодом. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 25.02.2015 в 23:26. |
#37
|
||||
|
||||
и я не буду. турбо десятка вполне хорошая мне кажется.
я еще вот о чем, вот ставим в форму бутон или спедбутон, двойной щелчек на бутон и в форме автоматом поевляется Код:
SpeedButton1: TSpeedButton; procedure SpeedButton1Click(Sender: TObject); procedure TForm1.SpeedButton1Click(Sender: TObject); begin end; а вот как поевляется Код:
procedure FormShow(Sender: TObject); procedure TForm2.FormShow(Sender: TObject); begin end; ??? я то их вписываю вручную, из за этого и говорил што не естественно не переставай удивляться обычному
|
#38
|
||||
|
||||
Вкладка Events в Object Inspector и выбираете что нужно
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#39
|
||||
|
||||
Я же выше описал и Alegun добавил.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#40
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#41
|
||||
|
||||
нету в Events FormShow
не переставай удивляться обычному
|
#42
|
||||
|
||||
Они там все с приставкой On (OnShow)
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#43
|
||||
|
||||
есть Visual - OnShow
это и есть ShowForm ?? не переставай удивляться обычному
|
#44
|
||||
|
||||
Цитата:
>>щёлкаем мышкой по событию OnShow Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#45
|
||||
|
||||
да Женя, но ладно. у меня все равно значение переменной не передается.
только в вашем исходнике. я уже подумываю все делать в рамках одной формы, заморока отпала бы.. не переставай удивляться обычному
|