![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
![]() Тогда вот вам пример, что успелось собраться
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#17
|
||||
|
||||
![]() Ох, Alegun. Возьму щётку с мылом и отдраю твой язык. Может тогда твои тексты станут удобочитаемыми.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#18
|
||||
|
||||
![]() спасибо- посмотрел - тоже прогодится
но мне надо именно с SpeedButton (для прозрачного еффекта потом) шлю вам свой вариянт - сделайте во второй форме штоб показали переменную из первой формы вот столько для счастья мне ![]() не переставай удивляться обычному
Последний раз редактировалось roland196, 25.02.2015 в 02:33. |
#19
|
||||
|
||||
![]() Вас просили не вкладывать в архив исполняемый файл. Ничего лишнего не нужно, только dpr, pas и dfm.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#20
|
||||
|
||||
![]() да, виноват, компилятор неусмотрел и папку целиком заархивировал.
можете удалять архив. не переставай удивляться обычному
|
#21
|
||||
|
||||
![]() Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#22
|
||||
|
||||
![]() вот, пример маленький - если не трудно - посмотрите.
не переставай удивляться обычному
|
#23
|
||||
|
||||
![]() Подправил.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#24
|
||||
|
||||
![]() да, вот теперь порядок, именно SpeedButton и переменная во второй форме
завтро буду в свой проект это запихать Спасибо и хорошей вам ночи ![]() не переставай удивляться обычному
|
#25
|
||||
|
||||
![]() Offtop: У нас уже утро.
![]() Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#26
|
||||
|
||||
![]() ну в ообщем не заработало
![]() исходник от angvelem - работает - переменная передается. сделал также = обе формы заполнил идентично с исходником angvelem: Код:
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. но у меня переменная из N2 Form1 в Form2 Label2.Caption := IntToStr(N2); НЕ передается ![]() может што то в свойствах форм или кнопки Speedbutton нужно записать? не переставай удивляться обычному
Последний раз редактировалось roland196, 25.02.2015 в 21:57. |
#27
|
||||
|
||||
![]() Бросьте ещё одну спидбаттонку на форму и переместите в её обработчик строку про показ в лейбле содержимого переменной из FormShow, заработает?
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#28
|
||||
|
||||
![]() пробую соображать про
переместите в её обработчик строку про показ в лейбле содержимого переменной из FormShow помните вчерашний свисток от чайника? ![]() вы про это? Код:
Label2.Caption := IntToStr(N2); в какой форме, первой или второй на speedbutton сделать? не переставай удивляться обычному
Последний раз редактировалось roland196, 25.02.2015 в 23:02. |
#29
|
||||
|
||||
![]() Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#30
|
||||
|
||||
![]() Возможно вы опять пытаетесь сделать это в событии OnCreate Form2, а такое не прокатит.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |