[pikabu]

Подскажите по вопросу.
Использую в проге фреймы.
Не получается с одного фрейма обратиться к другому.
Ну например поменять значение edit.text в первом фрейме, нажимая на кнопку во втором.

[lmikle]

Тут надо смотреть как у тебя организовано создание этих фреймов.
Короче, код давай.

[pikabu]

Код слизан с альфаскинов,
http://www.alphaskins.com/sfiles/demos/chatdemo.zip
До этого даже не знал, что такое фреймы, всегда юзал формы, накатал нужный себе проект, изменив этот исходник, теперь не знаю, как быть... Закидайте тапками плиз!

[lmikle]

Лень качать и разбираться. Просто выложи куски кода создания фреймов.

[pikabu]

Главная форма

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

***  public     procedure OpenFrame(FrameType: TacFrame; Animated: boolean); ***   procedure TMainForm.OpenFrame(FrameType: TacFrame; Animated: boolean); var   OldFrame: TFrame; begin   if not (FormData.CurrentMenuFrame is FrameType) then begin     OldFrame := FormData.CurrentMenuFrame;     if Animated and FormData.sSkinManager1.Effects.AllowAnimation then       PrepareForAnimation(sPanel3, atcRunup);       FormData.CurrentMenuFrame := FrameType.Create(Self);     FormData.CurrentMenuFrame.Align := {alTop;//}alClient;     FormData.CurrentMenuFrame.Parent := sPanel3;     FreeAndNil(OldFrame);     if Animated and FormData.sSkinManager1.Effects.AllowAnimation then       AnimShowControl(sPanel3, 50, 255, atcRunup);   end; end;

FormData

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75

unit UnitData;   interface   uses   SysUtils, Classes, Forms, ImgList, Controls,   acAlphaImageList, sSkinManager, sSpeedButton, acAlphaHints;   type   TacFrame = class of TFrame;     TFormData = class(TDataModule)     sSkinManager1: TsSkinManager;     sCharImageList1: TsCharImageList;     sAlphaImageList1: TsAlphaImageList;     sAlphaHints1: TsAlphaHints;   public     CurrentMenuFrame: TFrame;     CurrentMenuBtn: TsSpeedButton;     CurrentWorkFrame: TFrame;     CurrentWorkBtn: TsSpeedButton;     procedure OpenFrame(FrameType: TacFrame; SelectBtn: TsSpeedButton);     procedure PaintSelRect(Bmp: TBitmap);   end;     var   FormData: TFormData;   implementation   {$R *.dfm}   uses sConst, sCommonData, sGraphUtils, sPanel, sVCLUtils, MainUnit;   procedure TFormData.OpenFrame(FrameType: TacFrame; SelectBtn: TsSpeedButton); var   OldFrame: TFrame; begin   if (FrameType <> nil) and (CurrentWorkBtn <> SelectBtn) then begin     MainForm.sSplitView2.SideShadow.Mode := ssmInternal;     MainForm.PanelMain.SideShadow.Mode := ssmNone;     MainForm.PanelMain.SkinData.SkinSection := '';     if CurrentWorkBtn <> nil then       CurrentWorkBtn.SkinData.SkinSection := 'LBTN';       CurrentWorkBtn := SelectBtn;     CurrentWorkBtn.SkinData.SkinSection := 'SELBTN';       if not (FormData.CurrentWorkFrame is FrameType) then begin       OldFrame := FormData.CurrentWorkFrame;       if sSkinManager1.Effects.AllowAnimation then         PrepareForAnimation(MainForm.PanelContainer, atcRunup);         FormData.CurrentWorkFrame := FrameType.Create(Application);       FormData.CurrentWorkFrame.Align := alClient;       FormData.CurrentWorkFrame.Parent := MainForm.PanelContainer;       FreeAndNil(OldFrame);       if sSkinManager1.Effects.AllowAnimation then         AnimShowControl(MainForm.PanelContainer, 50, 255, atcRunup);     end;   end   else begin     if CurrentWorkBtn <> nil then begin       CurrentWorkBtn.SkinData.SkinSection := 'LBTN';       CurrentWorkBtn := nil;     end;     if FormData.CurrentWorkFrame <> nil then       FreeAndNil(FormData.CurrentWorkFrame);       MainForm.sSplitView2.SideShadow.Mode := ssmNone;     MainForm.PanelMain.SideShadow.Mode := ssmInternal;     MainForm.PanelMain.SkinData.SkinSection := 'TRANSPARENT';   end; end;

Открытие фрейма

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

type   TFrameAccount = class(TFrame)     sSpeedButton1: TsSpeedButton;     procedure sSpeedButton1Click(Sender: TObject);   public     destructor Destroy; override;   end;   implementation   {$R *.dfm}   uses MainUnit, UnitData, UnitFrameEmpty, UnitFrameAccountEdit,   UnitFrameAccountCreate;   destructor TFrameAccount.Destroy; begin   FormData.CurrentWorkBtn := nil;   inherited; end;     procedure TFrameAccount.sSpeedButton1Click(Sender: TObject); begin   FormData.OpenFrame(TFrameAccountCreate, TsSpeedButton(Sender)); end;     end.

[lmikle]

Ну, у тебя, вроде, сохраняется указатель на фрейм (FormData.CurrentMenuFrame). Вот через него и обращайся. Только надо еще откаститься к нужному классу фрейма. Например:

Код:

1 2	if  FormData.CurrentMenuFrame Is TFrameWithEdit Then   (FormData.CurrentMenuFrame As TFrameWithEdit).Edit1.Text := 'aaa';