Dialogboks til indtastning

Der findes ikke nogen foruddefinerede dialogbokse til det formål.
Det vindue må du selv lave, og så, hvis du bruger VCL, gøre så at når man trykker OK i diaglogboksen så bare gemmer det i fx Tekst : String:

Tekst := Edit1.Text;
______________________________________
-----------------------{ nife}------------------------_______________________________________

Du kan også bruke denne metoden:

var
  S: String;
begin
  if InputQuery('Tittel', 'Skriv inn noe:', S) then
  begin
    if S > '' then
      ShowMessage('Du skrev "' + S + '"!')
    else
      ShowMessage('Du skrev ingenting!!');
  end;
end;

Mvh
DiZpel

[Redigeret d. 16/05-04 18:53:52 af DiZpel]

Så skal du, som jeg nævnte tidligere, selv lave et vindue til det formål. InputQuery kan alle de overnævnte ting undtagen det med en knap der udfører noget specielt udover OK-knappen.
_______________________________________
-----------------------{ nife}------------------------_______________________________________

[Redigeret d. 16/05-04 19:17:55 af Nicolai Lyster Fersner]

InputQuery OG InputBox kan alle de ovenstående ting, udover den ikke standarde knap ...

MH.

The-Freak

Livet er for kort til at kede sig.

Det kan da ikke være så svært?
Hvis du ikke syntes om en input, så lav det selv...
Så giver det også et lidt personligt præ, over dit program...
Og det må jeg siger er let at lave...
Lidt tekst (enkelt), edit, ok knap (Kan sådan set også let laves, med noget lignende:

S: String // Dette under Privat.

Knappen:
Begin
Edit1.text := S;
end;

) Og så den knap du selv vil lave...
Tar MAX 10 min.



Fader vor, du som er i datamaten
Helliget vorde dit operativsystem
Komme dit flerbrugersystem.
Ske din vilje på skærmen,
således også på printeren.
Led os ikke i systemfejl,
men fri os fra de lange svartider.
Giv os i dag vort daglige udskrift,
og tilgiv os vore tastefejl,
selvom vi ikke tilgiver programfejl.
Thi dit er systemet,
og magten over brugerne
i al evighed
(ENTER)


Shafh
Shafh@stofanet.dk
Theis F. Hinz

Sådan her:

procedure TForm1.Button1Click(Sender: TObject);
var
  Noget: string;
begin
  Noget := InputBox('Overskrift', 'Text', '');
  ShowMessage(Noget);
end;

Så må du så selv rette til i det...

MH.

The-Freak

Livet er for kort til at kede sig.

[Redigeret d. 16/05-04 13:08:35 af The-Freak]

Nåh ja den kan jeg egentlig godt huske nu jeg tænker mig om... Har ikke helt tjek på alle Delphi's funktioner mere da jeg bruger Win32 API'et i stedet for til det meste efterhånden.
_______________________________________
-----------------------{ nife}------------------------_______________________________________

Kan man ikke lave således der kommer en overskrift(titel), en tekst, et indtastningsfelt, en OK knap og en knap som udfører noget kode man selv skriver?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Så skal du, som jeg nævnte tidligere, selv lave et vindue til det formål. InputQuery kan alle de overnævnte ting undtagen det med en knap der udfører noget specielt udover OK-knappen.
_______________________________________
-----------------------{ nife}------------------------_______________________________________

[Redigeret d. 16/05-04 19:17:55 af Nicolai Lyster Fersner]

Skal jeg så lave en ekstra form eller hvad mener du nikolai?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 16/05-04 19:39:54 af Rune Jensen (RoZ)]

Shaf: Mener du ikke

S := Edit1.Text;

?

MH.

The-Freak

Livet er for kort til at kede sig.