Avatar billede assassin Juniormester
12. juli 2006 - 10:06 Der er 5 kommentarer og
1 løsning

Kald af datamodul.afterscroll fra anden form.

Jeg har følgende procedure i Emain

procedure TFormVelkommen.GetArmorPicture;
begin
  if fileExists(GetPicture(ArmorSti, DmRustning.dtsArmorArmorNavn.AsString)) then
    ArmorImage.Picture.LoadFromFile(GetPicture(ArmorSti, DmRustning.dtsArmorArmorNavn.AsString))
  else
    Showmessage(GetPicture(ArmorSti, DmRustning.dtsArmorArmorNavn.AsString)+' kan ikke findes');
end;

GetPicture ligger i en util unit.

Jeg kunne godt tænke mig at kalde getPicture fra datamodul DmRustning.dtsArmor.afterscroll, men det kan jeg ikke fordi armorImage ligger i emain.

DmRustning bliver brugt af emain.

Jeg håber at det er forståeligt, ellers vil jeg gerne forklare nærmere
Avatar billede martinlind Nybegynder
12. juli 2006 - 11:30 #1
under implementation i dit Datamodul skriver du

uses Util;
Avatar billede assassin Juniormester
12. juli 2006 - 13:26 #2
Ja, så langt er jeg med.

Emain: TForm
Uses util, Dmrustning
ArmorImage

DmRustning: TDatamodul
Uses util
dtsArmor: TADODataSet
mit ønske er at jeg her i dtsArmor.Afterscroll kan kalde getPicture, men da den bruger ArmorImage, som ligger på emain, kan den ikke  bruges. - hvordan gør jeg det.

Util
function Getpicture
Avatar billede martinlind Nybegynder
12. juli 2006 - 15:50 #3
Du kan lave Circulare Uses ved på den ene form at din uses i interface delen og i den anden form at sætte din uses i implementation delen. Så er dit problem løst, fuldstændig som jeg skrev i det første svar :)
Avatar billede assassin Juniormester
12. juli 2006 - 17:49 #4
Jeg var ikke klar over at man kunne lave circulare uses på den måde, det vil jeg lige afprøve imorgen
Avatar billede martinlind Nybegynder
12. juli 2006 - 19:17 #5
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, < Din_Unit_1 >;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses < Din_Unit_2 >

{$R *.dfm}

end.

og omvendt :)

Men jeg vil godt lige bemærke at, det at du har behov for at lave en cirkulær uses typer på at dit prg. design er forkert ! :)
Avatar billede assassin Juniormester
13. juli 2006 - 09:06 #6
Tak for hjælpen.

Jeg ved godt at det ikke er den bedste måde at gøre det på, det er også lidt af en lappeløsning.

Jeg troede faktisk ikke det kunne lade sig gøre at lave circulare uses.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester