Thema: Delphi Realtime Input? Thread?

Einzelnen Beitrag anzeigen

C.Schoch

Registriert seit: 2. Jan 2006
Ort: Wüstenrot
235 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Realtime Input? Thread?

  Alt 13. Mai 2006, 23:09
Yes you can. go to File - New - (in german version "Weitere") the rest is shown in the screenshot of course you can use the red marked.

you can add buttons, fields ... .
But you have to write every funktion by own hand.
like this:
Delphi-Quellcode:
procedure TMainForm.pmAddClick(Sender: TObject);
// Job hinzufügen
begin
  // here you can set standart values if you need
  TEditChange.ShowModal;
  if not (TEditChange.ModalResult = mrCancel) then // maybe use mrOK and leave "not"
    begin
      // do sometheng whith the Input Data
      lvSourceDestination.Items.Add;
      lvSourceDestination.Items[lvSourceDestination.Items.Count-1].SubItems.clear;
      lvSourceDestination.Items[lvSourceDestination.Items.Count-1].SubItems.add(TEditChange.eSourcePath.Text);
      lvSourceDestination.Items[lvSourceDestination.Items.Count-1].SubItems.add(TEditChange.eDestinationPath.Text);
      lvSourceDestination.Items[lvSourceDestination.Items.Count-1].SubItems.add(TEditChange.eApplicationPath.Text);
      // reset the edit fields, if you don`t do the old is shown at next show
      TEditChange.eSourcePath.Text := '';
      TEditChange.eDestinationPath.Text := '';
      TEditChange.eApplicationPath.Text := '';
    end
end;
edit: In D7 it`s in File - New - (in german version "Weitere") in the register "Dialogs"
Miniaturansicht angehängter Grafiken
dialog_130.jpg  
Tschau Christian
Das System hofft auf Besserung
[Siemens]
  Mit Zitat antworten Zitat