Živě.cz

dobrej

mam v delphi psany programek a vse funguje zatim

mam nekolik buttonu a po jejich stisku se do editu zada urcity text ovsem, kdyz zmacknu jiny buttonek s jinym textem v editu se prepise na novy... + potrebuji pridavat jeste vlastni text do editu +ty buttonky (text z nich)

muzete mi prosim poradit jak na to aby se edit nepremazaval a pouze se tam pridavalo a zustalo vse co zadam?

noze daj sem cast zdrojaku ako to tam spec do toho TEdit

Kód: Vybrat vše

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Label1.Caption:=Edit1.Text;
end;

tuto asi ubec nepomuze

pochybuju, ze pomuze jakakoli cast zdrojaku ci cely, ale proc ne.... zatim vse co tam je je jak ma, ale pouze to premazavani v editu me dela vrasky

no nevim, ten tvuj kod edit nemaze...ale nemyslis treba neco jako tohle...

Kód: Vybrat vše

Edit1.Text := Edit1.Text+Button1.Caption;

Kód: Vybrat vše

procedure TForm1.Button1OnClick(Sender: TObject);
begin
  Edit1.text := Edit1.text + Label1.Caption;
end;



Nic jiného snad nejde...

ok to by slo diky moc, ale jeste bych potreboval aby se to po zadani z tlacitka zadalo za posledni znak v editu a ne na zacatek..?

myslis neco jako tohle?

Kód: Vybrat vše

Edit1.text := Label1.Caption+Edit1.text;

jo a jeste neco...myslis to s programovanim opravdu vazne?

Mozna zacatecnik, tak ho nech byt

marz > mozno, ale aj tak sa ta hekrhy-ho otazka javi rozumne )