Oisko.......

Joo tänää aloin tutustumaan koulussa delphi 7 ohjelmaan opettajan kanssa ATK tunnilla kun olen saanut kaikki excel tehtävät tehtyä paljon aikaisemmin mitä piti. Haluisisin tietää esim. miten saan pop-upin liitettyä johonkin napulaan? Siis jos teen nappulan jonka nimi on vaikka 'Button1' ja sitten painan run nappulaa ja painan 'Button1' nappulaa ni tulis jonkumoinen pop-uppi. Tuleeko jostain frame nappulasta? Opettaja ei itsekään tiennyt tuota miten tehdä.

selevä.... kirjoitti:

Joo tänää aloin tutustumaan koulussa delphi 7 ohjelmaan opettajan kanssa ATK tunnilla kun olen saanut kaikki excel tehtävät tehtyä paljon aikaisemmin mitä piti. Haluisisin tietää esim. miten saan pop-upin liitettyä johonkin napulaan? Siis jos teen nappulan jonka nimi on vaikka 'Button1' ja sitten painan run nappulaa ja painan 'Button1' nappulaa ni tulis jonkumoinen pop-uppi. Tuleeko jostain frame nappulasta? Opettaja ei itsekään tiennyt tuota miten tehdä.

procedure TForm1.Button1Click(Sender: TObject);
var f:tform;
begin
f:=TForm.Create(nil);
f.Show;
end;

... kirjoitti:

procedure TForm1.Button1Click(Sender: TObject);
var f:tform;
begin
f:=TForm.Create(nil);
f.Show;
end;

ku sinne laittaa ni pitäis pop-up tulla nappulaa painamalla? Mites sitten sais sellasen ''latauspalkin'' joka lähtis lataa jotain olematonta nappia painamalla?

... kirjoitti:

procedure TForm1.Button1Click(Sender: TObject);
var f:tform;
begin
f:=TForm.Create(nil);
f.Show;
end;

Eli tämä vastaaja tarjoaa sellaista vaihtoehtoa että
ikkuna(form) luodaan lennossa. Se ei ole ehkäpä niitä helpompia tapoja aloittelijalle (Mutta eräs hyvä vaihtoehto).

noi... kirjoitti:

ku sinne laittaa ni pitäis pop-up tulla nappulaa painamalla? Mites sitten sais sellasen ''latauspalkin'' joka lähtis lataa jotain olematonta nappia painamalla?

Tässä lisävihjeitä

procedure TForm1.Button1Click(Sender: TObject);
var   f:TForm;
   pBar: TProgressBar;
begin
   f:=TForm.Create(nil);
   f.Caption:='Ikkuna';
   pBar := TProgressBar.Create(nil);
   pBar.Parent:=f;
   pBar.top :=10;
   pBar.left:=20;
   pBar.Position:=50;
   f.Show;
end;

noi... kirjoitti:

ku sinne laittaa ni pitäis pop-up tulla nappulaa painamalla? Mites sitten sais sellasen ''latauspalkin'' joka lähtis lataa jotain olematonta nappia painamalla?

Jos laitat ProgressBarin ja Buttonin formille, niin buttonia klikkaamalla tapahtuu edistystä.

procedure TForm1.Button1Click(Sender: TObject);
var t:integer;
begin
for t:=1 to 10 do begin
ProgressBar1.stepit;
sleep(100); //100 ms viive
end;
end;

selevä.... kirjoitti:

Joo tänää aloin tutustumaan koulussa delphi 7 ohjelmaan opettajan kanssa ATK tunnilla kun olen saanut kaikki excel tehtävät tehtyä paljon aikaisemmin mitä piti. Haluisisin tietää esim. miten saan pop-upin liitettyä johonkin napulaan? Siis jos teen nappulan jonka nimi on vaikka 'Button1' ja sitten painan run nappulaa ja painan 'Button1' nappulaa ni tulis jonkumoinen pop-uppi. Tuleeko jostain frame nappulasta? Opettaja ei itsekään tiennyt tuota miten tehdä.

popup? - jos tarkoitat OK -painikkeella kuitattavaa viesti-ikkunaa, niin button1click -metodiin:

ShowMessage('Oma tekstisi tähän.');

uuden ERI formin näyttämiseen on 2 eri keinoa:

1. Form2.ShowModal; // näyttää uuden formin modaalisena, eli uusi formi on suljettava, jotta alkuperäin formi ottaisi vastaan komentoja.

2. Form2.Show; // näyttää uuden formin, ja vanha formi on edelleen täysin käytettävissä.

huomaa: jos luot uuden formin "lennossa", varmista oikea muistinhallinta !

katso myös:

SetFocus

SetForegroundWindow

ActiveControl

FormState

WindowState

näitä huomenna. Torstaina on yökoulu joten kerkee kunnola tutustumaan ohjelman käyttöön.

kokeilen.... kirjoitti:

näitä huomenna. Torstaina on yökoulu joten kerkee kunnola tutustumaan ohjelman käyttöön.

toi visual basic? Minkäslainen ohjelma se on? ja onkos se maksullinen?

sitte.... kirjoitti:

toi visual basic? Minkäslainen ohjelma se on? ja onkos se maksullinen?

Parempi unohtaa VB heti kättelyssä! Lueppa tämän palstan aikaisemmat viestit!

Eipä niin kirjoitti:

Parempi unohtaa VB heti kättelyssä! Lueppa tämän palstan aikaisemmat viestit!

ylempänä näkyy paljon delphi maksaa, eli todella paljon. Mitenkäs toi latauslinkki minkä joku oli sinnet laittanut? onko laillist touhua? linkki keskusteluu tässä --> http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000646&posting=22000000032376506

tossa... kirjoitti:

ylempänä näkyy paljon delphi maksaa, eli todella paljon. Mitenkäs toi latauslinkki minkä joku oli sinnet laittanut? onko laillist touhua? linkki keskusteluu tässä --> http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000646&posting=22000000032376506

Laillisesti ladattua saa ainakin tämän:

http://www.turboexplorer.com/delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.close;
end;

Delphin asennuskansiosta löytyy esimerkkiohjelmia.

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

... kirjoitti:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

Kyllä toikin riittäisi mutta tässä tapauksessa tuo luokka luotaisiin ohjelman käynnistyksessä!

Olion " Var f:TForm2; " esittelyn voisi siirtää TForm1 luokan private osioon
Siis tiedostossa unit.pas kohdan { private declarations } alle uudelle riville
f:TForm2;

Tuossa kannattaisi käyttää
ShowModal-metodia Show:n tilalla!

Tekisin sen näin:

procedure TForm1.Button1Click(Sender: TObject);
var f:TForm2;
begin
   f := TForm2.Create(nil);
   f.showModal;
   f.free;
end;

... kirjoitti:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

Tekemällä itse luokan rakentajan voit välittää monia haluamiasi tietoja oliolle.


eli unit2 voisi olla rakentaja tehty näin
Luokan TForm2 esittelyssä:
public
{ public declarations }
constructor create(t: string);overload;

...


constructor TForm2.create(t:string);
begin
Inherited create(nil);
caption :=t; // ikkunan otsikkorivin teksti
end;



jolloin unit1:ssä voidaan luokka luoda näin
f := TForm2.Create('terve');

Mikään ei estä lisäämästä noita parametrejä vielä lisää

wertywerty kirjoitti:

Tekisin sen näin:

procedure TForm1.Button1Click(Sender: TObject);
var f:TForm2;
begin
   f := TForm2.Create(nil);
   f.showModal;
   f.free;
end;

viel yks kysymys. Tai itseasias pari. Eli mitenkäs tollasen lataus palkin sais lataa jotain olematonta? Siis sillei et se vaa latais koko aja. Ja sitte ku tossa yhessä kohtaa neuvottiin näin:

procedure TForm1.Button1Click(Sender: TObject);
var f:TForm;
pBar: TProgressBar;
begin
f:=TForm.Create(nil);
f.Caption:='Ikkuna';
pBar := TProgressBar.Create(nil);
pBar.Parent:=f;
pBar.top :=10;
pBar.left:=20;
pBar.Position:=50;
f.Show;
end;

Niin miksi se alkaa herjaa tost pBar: TProgressBar;? Kaikki muu kunnossa paitsi toi......

mutta..... kirjoitti:

viel yks kysymys. Tai itseasias pari. Eli mitenkäs tollasen lataus palkin sais lataa jotain olematonta? Siis sillei et se vaa latais koko aja. Ja sitte ku tossa yhessä kohtaa neuvottiin näin:

procedure TForm1.Button1Click(Sender: TObject);
var f:TForm;
pBar: TProgressBar;
begin
f:=TForm.Create(nil);
f.Caption:='Ikkuna';
pBar := TProgressBar.Create(nil);
pBar.Parent:=f;
pBar.top :=10;
pBar.left:=20;
pBar.Position:=50;
f.Show;
end;

Niin miksi se alkaa herjaa tost pBar: TProgressBar;? Kaikki muu kunnossa paitsi toi......

viel sellanen kysymys et jos tekee oman selaimen niin pitääkö ''Go!'' painikkeen begin ja end välille kirjoittaa webbrowsing1.navigatetoedit1.text?

mutta..... kirjoitti:

viel yks kysymys. Tai itseasias pari. Eli mitenkäs tollasen lataus palkin sais lataa jotain olematonta? Siis sillei et se vaa latais koko aja. Ja sitte ku tossa yhessä kohtaa neuvottiin näin:

procedure TForm1.Button1Click(Sender: TObject);
var f:TForm;
pBar: TProgressBar;
begin
f:=TForm.Create(nil);
f.Caption:='Ikkuna';
pBar := TProgressBar.Create(nil);
pBar.Parent:=f;
pBar.top :=10;
pBar.left:=20;
pBar.Position:=50;
f.Show;
end;

Niin miksi se alkaa herjaa tost pBar: TProgressBar;? Kaikki muu kunnossa paitsi toi......

Uses-lauseesta puuttuu:
ComCtrls


Vinkki vastaisuuden varalle eli teeppä näin:
- tee pikainen kokeilu projekti
eli aluksi vain tyhjä ikkuna.
- katsot ohjelmakoodia kiinnitä huomio
uses-lauseen loppuun (sanaan ennen puolipistettä).
-lisäät ProgressBar-komponentin lomakkelle.
Ja katsot uudestaan tuota uses-lausetta niin
sinne on tullut ComCtrls.
Huomaa että sovelluskehitin ei poista automaattisesti noita vaikka se lisää niitä automaattisesti jos tarvittavaa käännösyksikköä ei ole.
Tuhoa tämä kokeilu projekti.

sitte.............. kirjoitti:

viel sellanen kysymys et jos tekee oman selaimen niin pitääkö ''Go!'' painikkeen begin ja end välille kirjoittaa webbrowsing1.navigatetoedit1.text?

paas kokeileen.

sitte.............. kirjoitti:

viel sellanen kysymys et jos tekee oman selaimen niin pitääkö ''Go!'' painikkeen begin ja end välille kirjoittaa webbrowsing1.navigatetoedit1.text?

Teeppä niin että "Aloita uusi keskustelu", tarkenna ja täydennä sitä.
Käytä luokka nimiä (Luokat alkavat yleensä T-kirjaimella)

Kysymykset saattavat hukkua

Jos tarkoituksena on luoda vain yksi ikkuna niin pitää estää
että napin uudelleen painaminen luo jo luodun rinnalle uuden ikkunan.
Eli pitää tarkistaa ennen luomista onko ikkuna olemassa!
(koskee lähinnä tapauksia joissa on create ja show )