form - verhalten / showmodal

[benicz]

hier der code (nur relevante befehle):

Delphi-Quellcode:

procedure Form1.domidi(const aStatus, aData1, aData2: byte);
begin
  URemote.doremote(aData1);
end;

procedure Form1.menucklick;
begin
  Form2.add;
end;

procedure URemote.doremote(aData1);
begin
  case aData1 of
  1: begin
       Form2.add;
       // das stammt noch aus der zeit, wo ich mangels sender den focus wieder auf Form1 setzen musste:
       Form1.SetFocus;
       Application.ProcessMessages;
     end;
  2: begin
       keybd_event(VK_RETURN,0,0,0);
       keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);
     end;
  end;
end;

procedure Form2.add;
begin
  //dummy erzeugen
  if (Form2.edit(@dummy)=MROK) then
    mach weiter
    else
      exit;
end;

function Form2.edit(pointer):integer;
begin
  //setze globalen pointer auf den wert, der übergeben wurde
  result:=showmodal;
end;

procedure Form2.btokclick;
begin
  //trage den ganzen kram ein
  modalresult:=MROK;
  //oder close, klappt aber auch nicht...
end;

bevor ich jetzt noch länger dransitze und keiner antworten kann, poste ich mal...

huch, formatierung wech! dann müsst ihr euch die einschübe denken (oder mir sagen, wie leerzeichen drinbleiben...)

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

edit: yepp, danke!