[Alegun]

Тогда вот вам пример, что успелось собраться

[angvelem]

Ох, Alegun. Возьму щётку с мылом и отдраю твой язык. Может тогда твои тексты станут удобочитаемыми.

[roland196]

спасибо- посмотрел - тоже прогодится
но мне надо именно с SpeedButton (для прозрачного еффекта потом)

шлю вам свой вариянт - сделайте во второй форме штоб показали
переменную из первой формы

вот столько для счастья мне

[angvelem]

Вас просили не вкладывать в архив исполняемый файл. Ничего лишнего не нужно, только dpr, pas и dfm.

[roland196]

да, виноват, компилятор неусмотрел и папку целиком заархивировал.
можете удалять архив.

[angvelem]

Сообщение от roland196

...можете удалять архив.

Это может сделать только автор - вы. При редактировании вашего сообщения и вложения нового архива без исполняемого файла, старый заменится. Просто имеется ограничение на общий размер выкладываемых файлов.

[roland196]

вот, пример маленький - если не трудно - посмотрите.

[angvelem]

Подправил.

[roland196]

да, вот теперь порядок, именно SpeedButton и переменная во второй форме
завтро буду в свой проект это запихать
Спасибо и хорошей вам ночи

[angvelem]

Offtop: У нас уже утро.

[roland196]

ну в ообщем не заработало
исходник от 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 нужно записать?

[Alegun]

Бросьте ещё одну спидбаттонку на форму и переместите в её обработчик строку про показ в лейбле содержимого переменной из FormShow, заработает?

[roland196]

пробую соображать про
переместите в её обработчик строку про показ в лейбле содержимого переменной из FormShow

помните вчерашний свисток от чайника? )

вы про это?

Код:

Label2.Caption := IntToStr(N2);

в какой форме, первой или второй
на speedbutton сделать?

[angvelem]

Сообщение от roland196

...но у меня переменная из N2 Form1 в Form2 Label2.Caption := IntToStr(N2);
НЕ передается

Она и не передаётся, так как N2 находится в Form2, она присваивается, а затем показывается Form2.

[angvelem]

Возможно вы опять пытаетесь сделать это в событии OnCreate Form2, а такое не прокатит.