
Originally Posted by
Risk
@ Frement: Yeah, I was reading that but it is uncompleted. It also does not explain how to make Edit1 into a String.
Thanks though.
@ Sex :
I'll try that now, thanks.
Edit01: Can I please get an example on what you meant by that, Sex?
SCAR Code:
program New;
var
frmDesign : TForm;
Edit1 : TEdit;
Button1 : TButton;
s : string;
procedure SaveAndExit(sender: TObject);
begin
s := Edit1.Text;
frmDesign.ModalResult := mrOk;
Writeln(Format('The variable s was set to Edit1.Text: %s', [s]));
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.BorderStyle := bsToolWindow;
frmDesign.Caption := 'Example';
frmDesign.ClientHeight := 55;
frmDesign.ClientWidth := 92;
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 8;
Edit1.Top := 8;
Edit1.Width := 81;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 8;
Button1.Top := 32;
Button1.Width := 81;
Button1.Height := 20;
Button1.Caption := 'Save and Exit';
Button1.TabOrder := 9;
Button1.OnClick := @SaveAndExit;
end;
procedure SafeInitForm;
var
v : TVariantArray;
begin
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v : TVariantArray;
begin
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
FreeForm(frmDesign);
end.
Learn from that. If you have any more questions, add me on MSN: kyle@kyleis1337.info.