Ĺadny brzuch
2 krótkie pytanka:
1. Jak zrobić przycisk, który skopiuje pole Edit do pamięci (schowka)?
2. Jak zrobić przycisk, który wklei do pole Edit z pamięci (schowka) nadpisując text, który jest już w tym polu?
Jestem początkujący w Delphi
www.gambler.xp.pl | GG: 4599969 | 4um.4.pl - zapraszam, bez logowania
1 W onclick przycisku dodaj:
Edit1.CopyToClipboard;
2 W onclick przycisku dodaj:
Edit1.PasteFromClipboard;
(Co do 2 punktu nie jestem pewien, ale chyba jest dobrze:))
//maros//
Jeżeli chcesz koniecznie do i ze schowka to masz:uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.Open; Clipboard.SetTextBuf(PChar(Edit1.Text)); Clipboard.Close; end; procedure TForm1.Button2Click(Sender: TObject); var b:pchar; begin getmem(b,256); Clipboard.Open; Clipboard.GetTextBuf(b,256); Clipboard.Close; Edit2.Text:=b; end;A jeżeli nie...var tekst:string; procedure TForm1.Button1Click(Sender: TObject); begin tekst:=Edit1.Text; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit2.Text:=tekst; end;
Użytkownik Cyrkiel edytował ten post 15 sierpień 2005, 09:40
Form1.Edit1.CopyToClipboard; DLA KOPII
Form1.Edit1.PasteFromClipboard; DLA WKLEJENIA
{pomiędzy nimi można zastosować czyszczenie edita poprzez
Form1.Edit1.Text := (''); wtedy napewno nadpisze:D}
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:maros napisał:
1 W onclick przycisku dodaj:
Edit1.CopyToClipboard;
2 W onclick przycisku dodaj:
Edit1.PasteFromClipboard;
(Co do 2 punktu nie jestem pewien, ale chyba jest dobrze:))
//maros//
Zrobiłem Button (drugi), w Object Inspector wziąłem zakładkę Events > onclick wpisałem tam:
Ekrot.CopyToClipboard;
i wyskoczył mi błąd
"Ekrot.CopyToClipboard;" is not a valid identifier.
W przypadku Form1.Ekrot.CopyToClipboard; zaragował tak samo.
Gdy kliknąłem dwukrotnie na przycisk i wpisałem
uses Clipbrd;
procedure TForm1.Button2Click(Sender: TObject);
begin
Clipboard.Open;
Clipboard.SetTextBuf(PChar(Ekrot.Text));
Clipboard.Close;
end;
to mówi że jest kilka błędów.
Gdzie JA robię błąd?
www.gambler.xp.pl | GG: 4599969 | 4um.4.pl - zapraszam, bez logowania
Jeżeli w polu typu TEdit wpiszesz liczbe to tak sie stanie. Należy zastosować konwersją zmiennej typu Integer do String za pomocą komendy IntToStr. Dla pewności sprawdzał bym czy pole nie jest puste;)
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:
Mariuszlorenc:
...
Jak wpiszesz liczbę do Edit'a to ona i tak będzie string'iem :!
Malganis - sprawdź, czy wszystko dobrze wpisałeś:
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.CopyToClipboard; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit2.Text := ''; Edit2.PasteFromClipboard; end;
Pamiętaj, że ten kod skopiuje tylko zaznaczony tekst.
www.lewbar.prv.pl
cytat:LewB ar napisał:
Pamiętaj, że ten kod skopiuje tylko zaznaczony tekst.
Ano właśnie. Jak zrobić, aby tekst się sam zaznaczał i kopiował?
Sory, że was tak męcze :cheesy:, ale ma kilka dni do napisania tego programu, a z Delphi nie jestem mocny.
www.gambler.xp.pl | GG: 4599969 | 4um.4.pl - zapraszam, bez logowania
cytat:Malganis napisał:...
Mała sugestia. Jeżeli chcesz kopiować i wklejać tylko w obrębie swojego programu to nie lepiej jest przejąć TEdit do Stringa:?
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:LewB ar napisał:...
cytat:
Mariuszlorenc:
...
Jak wpiszesz liczbę do Edit'a to ona i tak będzie string'iem :!
A no żeczywiście. Sorki za pomyłke:cheesy:
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:
Malganis:
...
Wystarczy, że do jakiegoś zdarzenia dopiszesz:
Edit1.SetFocus; Edit1.SelectAll;
www.lewbar.prv.pl
Wielkie dzięki wam wszystkich :ok:
Przyciski działają.
www.gambler.xp.pl | GG: 4599969 | 4um.4.pl - zapraszam, bez logowania
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
1. Jak zrobić przycisk, który skopiuje pole Edit do pamięci (schowka)?
2. Jak zrobić przycisk, który wklei do pole Edit z pamięci (schowka) nadpisując text, który jest już w tym polu?
Jestem początkujący w Delphi
www.gambler.xp.pl | GG: 4599969 | 4um.4.pl - zapraszam, bez logowania
1 W onclick przycisku dodaj:
Edit1.CopyToClipboard;
2 W onclick przycisku dodaj:
Edit1.PasteFromClipboard;
(Co do 2 punktu nie jestem pewien, ale chyba jest dobrze:))
//maros//
Jeżeli chcesz koniecznie do i ze schowka to masz:uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.Open; Clipboard.SetTextBuf(PChar(Edit1.Text)); Clipboard.Close; end; procedure TForm1.Button2Click(Sender: TObject); var b:pchar; begin getmem(b,256); Clipboard.Open; Clipboard.GetTextBuf(b,256); Clipboard.Close; Edit2.Text:=b; end;A jeżeli nie...var tekst:string; procedure TForm1.Button1Click(Sender: TObject); begin tekst:=Edit1.Text; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit2.Text:=tekst; end;
Użytkownik Cyrkiel edytował ten post 15 sierpień 2005, 09:40
Form1.Edit1.CopyToClipboard; DLA KOPII
Form1.Edit1.PasteFromClipboard; DLA WKLEJENIA
{pomiędzy nimi można zastosować czyszczenie edita poprzez
Form1.Edit1.Text := (''); wtedy napewno nadpisze:D}
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:maros napisał:
1 W onclick przycisku dodaj:
Edit1.CopyToClipboard;
2 W onclick przycisku dodaj:
Edit1.PasteFromClipboard;
(Co do 2 punktu nie jestem pewien, ale chyba jest dobrze:))
//maros//
Zrobiłem Button (drugi), w Object Inspector wziąłem zakładkę Events > onclick wpisałem tam:
Ekrot.CopyToClipboard;
i wyskoczył mi błąd
"Ekrot.CopyToClipboard;" is not a valid identifier.
W przypadku Form1.Ekrot.CopyToClipboard; zaragował tak samo.
Gdy kliknąłem dwukrotnie na przycisk i wpisałem
uses Clipbrd;
procedure TForm1.Button2Click(Sender: TObject);
begin
Clipboard.Open;
Clipboard.SetTextBuf(PChar(Ekrot.Text));
Clipboard.Close;
end;
to mówi że jest kilka błędów.
Gdzie JA robię błąd?
www.gambler.xp.pl | GG: 4599969 | 4um.4.pl - zapraszam, bez logowania
Jeżeli w polu typu TEdit wpiszesz liczbe to tak sie stanie. Należy zastosować konwersją zmiennej typu Integer do String za pomocą komendy IntToStr. Dla pewności sprawdzał bym czy pole nie jest puste;)
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:
Mariuszlorenc:
...
Jak wpiszesz liczbę do Edit'a to ona i tak będzie string'iem :!
Malganis - sprawdź, czy wszystko dobrze wpisałeś:
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.CopyToClipboard; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit2.Text := ''; Edit2.PasteFromClipboard; end;
Pamiętaj, że ten kod skopiuje tylko zaznaczony tekst.
www.lewbar.prv.pl
cytat:LewB ar napisał:
Pamiętaj, że ten kod skopiuje tylko zaznaczony tekst.
Ano właśnie. Jak zrobić, aby tekst się sam zaznaczał i kopiował?
Sory, że was tak męcze :cheesy:, ale ma kilka dni do napisania tego programu, a z Delphi nie jestem mocny.
www.gambler.xp.pl | GG: 4599969 | 4um.4.pl - zapraszam, bez logowania
cytat:Malganis napisał:...
Mała sugestia. Jeżeli chcesz kopiować i wklejać tylko w obrębie swojego programu to nie lepiej jest przejąć TEdit do Stringa:?
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:LewB ar napisał:...
cytat:
Mariuszlorenc:
...
Jak wpiszesz liczbę do Edit'a to ona i tak będzie string'iem :!
A no żeczywiście. Sorki za pomyłke:cheesy:
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
cytat:
Malganis:
...
Wystarczy, że do jakiegoś zdarzenia dopiszesz:
Edit1.SetFocus; Edit1.SelectAll;
www.lewbar.prv.pl
Wielkie dzięki wam wszystkich :ok:
Przyciski działają.
www.gambler.xp.pl | GG: 4599969 | 4um.4.pl - zapraszam, bez logowania