Jump to content

Oliver Morsch

uniGUI Subscriber
  • Posts

    356
  • Joined

  • Last visited

  • Days Won

    18

Everything posted by Oliver Morsch

  1. TUniMainModule = class(TUniGUIMainModule) private FUserName: String; public property UserName: String read FUserName write FUserName; end; and on logon form you write: uses MainModule; UniMainModule.UserName := edtUserName.Text; end;
  2. You use an uniFileUpload and want to get the path of the file on client machine? Then see #2.
  3. Link should work without to do something.
  4. Is your upload folder a subfolder of UniGUI root folder? Then you have nothing to do in HTTPCommand...
  5. You get no path info on a file upload in browser.
  6. You must use Non-Blocking MessageDlg (with callback).
  7. http://forums.unigui.com/index.php?/topic/9702-tunipanel-bringtofront/?fromsearch=1
  8. Is it the last created control? (Try with a new panel.) Otherwise you must set the z-index using javascript.
  9. Is the panel in front at design time?
  10. 1. Interface: unit UKeyDown; interface uses System.Classes; type IKeyDown = Interface ['{C21C434B-E6F7-4E2C-98CB-3ACC526566BE}'] procedure FnKeyDown(Sender: TObject; Key: Word; Shift: TShiftState); End; implementation end. 2. In each Frame: Uses ... UKeyDown; type TfraTest = class(TUniFrame, IKeyDown) ... public procedure FnKeyDown(Sender: TObject; Key: Word; Shift: TShiftState); end; procedure TfraTest.FnKeyDown(Sender: TObject; Key: Word; Shift: TShiftState); begin case Key of VK_F1: begin ShowMessage(scKeys.Strings.Text); end; ... end; end; In MainForm: var ts: TUniTabSheet; i: Integer; fr: TUniFrame; kd: IKeyDown; begin case Key of VK_F1..VK_F10: begin ts := PageCtrl.ActivePage; if ts = nil then begin EXIT; end; fr := nil; for i := 0 to ts.ControlCount - 2 do begin if ((ts.Controls[i] is TUniFrame) and (ts.Controls[i+1] is TUniSimplePanel) and (ts.Controls[i+1].Visible)) then begin fr := TUniFrame(ts.Controls[i]); BREAK; end; end; if fr <> nil then begin if Supports(fr, IKeyDown, kd) then kd.FnKeyDown(Sender, Key, Shift); end; end; end; end; => I have a Pagecontrol with tabsheets and on each tabsheet there are one or more frames, but only one frame is visible. And this active frame I search for and call FnKeyDown.
  11. I have made an interface with a FnKeyDown procedure and every frame implements that interface. In Mainform I call in onKeyDown the interface procedure of the active Frame.
  12. Use NavigateKeys property of the form that contains the frame.
  13. Function ".click() " does not exist on this object. But this works for me: UniSession.AddJS('frmMain.miProgramm.child().showBy(frmMain.miProgramm);'); Thank you very much.
  14. Is it possible to expand (open) UniMainMenu programmatically (after pressing F12 for example)?
  15. Oliver Morsch

    AjaxEvent

    https://stackoverflow.com/questions/15951952/stop-execution-of-the-getcurrentposition-method
  16. I don't understand what you are doing exactly. I have no example because I use long polling.
  17. I think you must send in OnEvent a message to the websocket in browser and there you can use javscript and/or ajaxRequest(...).
  18. https://www.w3schools.com/html/html5_geolocation.asp
  19. Every frame must have an unique name. xfrc.name := 'something unique'; example: xfrc.name := xfrc.name + IntToStr(Integer(xfrc));
  20. Give the frame a unique name.
  21. What is "large"? You could use UniUrlFrame.
×
×
  • Create New...