Frames og events.

Du kan evt. anvende PostMessage eller lign. ??

I Unit1:

Type

Form1
..
..

Protected
    procedure XCatch(var Message: TMessage); message Xm_Catch;


I Skemas OnKeypress    :

var Xmes: tMessage;
    x    : tComponent;
begin
x := application.FindComponent('Form1'); 
xMes.Msg    := xm_Catch;
xMes.LParam := Parameter1;
if x <> nil then
if x is tForm then
  Postmessage(tForm(x).Handle,xm_catch,0,xMes.LParam); 
end;

mvh.

Det kan du gøre ganske enkelt ved at benytte framens parent property, f.eks.:

Her sættes ejer formens farve til rød når der trykkes på framens button:

procedure TFrame2.Button1Click(Sender: TObject);
begin
    (Self.Parent as TForm).Color:=clred;
end;

Du kan enten sende en message, men den ryger i en (message)kø hvorved der kan være en lille forsinkelse. Det afhænger helt af hvor belastet maskinen er - det må du teste med GetTickCount.

unit UMessage;

interface

uses
  Messages;

const
  // Brugeroprettede messages skal komme efter WM_USER
  WM_MYMESSAGE = WM_USER + $01;

...

unit FMain;

uses
  .. UMessages;

type
  TfrmMain = class(TForm)
    procedure HandleMyMessage(var aMessage: TMessage); message WM_MYMESSAGE;
  ...

procedure TfrmMain.HandleMyMessage(var aMessage: TMessage);
var
  Sender: TObject; // Here actualle a TFrame
  ItemNo: integer;
  ItemState: integer;
begin
  Sender := TObject(aMessage.WParam);
  ItemNo := aMessage.LParam and $FFFF;
  ItemState := aMessage LParam shr $10;
end;

unit FRMyFrame;

uses
  ... UMessages;

procedure TfrmeMyFrame.Button1Click(Sender: TObject);
var
  ItemNo: integer; // Number of item to manipulate
  ItemState: integer; // State 0: off, 1: on
begin
  ItemNo = 5;
  ItemState := 0;
  Application.Mainform.Perform(WM_MYMESSAGE,integer(self),ItemNo or ItemState shl $10);
end;

Et alternativ er et Call-back event:

type
  TItemButtonEvent = procedure (Sender: TObject; const aItemNo, aItemState: integer) of object;
 
  TfrmeMyFrame = class(TFrame)
  private
    fOnItemButtonEvent: TItemButtonEvent;
  public
    property OnItemButton: TItemButtonEvent read fOnItemButton write fOnItemButton;
  end;
..

type
  TfrmMain = class(TForm)
    procedure HandleItemButtonEvent(Sender: TObject; const aItemNo, aItemState: integer);

I proceduren der sætter framene op:

var
  MyFrame: TfrmeMyFrame;
begin
  MyFrame := TfrmeMyFrame.Create(self);
  MyFrame.OnInputButtonEvent := HandleImageButtonEvent;
  ...
end;

Tak for inputs indtil videre!
Jeg kigger paa de forskellige forslag en gang i weekenden.

Paa genhoer!

Jeg endte med at bruge PostMessage, selvom jeg synes, det er en maerkelig maade at kommunikere paa internt i et program.

kroning, med din metode kan jeg ikke kalde en procedure i Form1, da min procedure ikke er faelles for TForm.

a_nor og HRC, laegger I lige svar.

Tak for hjaelpen!

Enig i din betragtning - ikke specielt objektorienteret - havde brugt løsningen i en anden sammenhæng.
mvh

js-delphi > Windows er message orienteret, så det er lidt den tanke gang man skal ha' for at kode i windows :-)

Prøv f.eks. at åbne en outlook i mail vinduet, når du så klikker på kalender vinduet og kigger på den lille mini-kalender kan du se et tydeligt eks. på at ms også bruger messages, dine aftaler kan være op til 30-60 sec. om at blive markeret med fed.

martinlind: det at der er ventetid i Outlook kan ligeså godt skyldes at en tråd af som opdaterer efter en tung forespørgsel til exchange-serveren er udført. Eller hvad?