Form'u Show ediyorum ama ekranda neden görünmüyor

[cappy2005]

Merhaba,

Messenger tarzı basit bir ptogramla uğraşıyorum.Takıldığım nokta şu herhangi bir Client listesindeki bir kişiye tıklayıp mesaj göndermek istediğinde başka bir pencere açılıyor ve burada mesajını yazıyor.Bu mesaj ilgili diğer Client 'a yollanıyor burada bir sorun yok.

İlgili Client 'a mesaj geldiği zaman istiyorum ki onun ekranında da mesaj penceresi otomatik olarak açılsın bunun için Client 'a mesaj geldiğinde bu mesajı kendi yazdığım procedure içine yolluyorum bu procedurede Form2.Show şeklinde form'u gösteriyorum ama mesaj geldiğinde form açılmıyor.Kontrol ettiğim istediğim değerler forma ulaşıyor ve yazdığım procedure işliyor ama form 'u Show yapamıyorum yada yapıyorum ama ekranda görünmüyor.....ne dersiniz???

[lazio]

bu konuda çok fazla şey söylenebilir, bu nedenler istersen sen bizi fazla yormadan kodlarını gönder onun üzerinden gidelim. ne dersin??

[cappy2005]

tamam o zaman öyle yapalım lazio

işte form oluşturan procedure, form runtime 'da oluşuyor.

Kod: Tümünü seç

procedure TForm1.FormOlustur;
var
  fr: TForm;
begin
   //Form oluştur
  fr := TForm.Create(Form1);
  formadi:=formadi+1;
  fr.Caption := 'Form'+IntToStr(formadi+1);
  fr.Top := fr.Top+pot;
  fr.Left := fr.Left+tele;
  fr.AutoSize := True;
  fr.AutoScroll := False;
  fr.Height := 88;
  fr.Show;
end;

ve serverdan mesaj geldiğinde çalışan metod da işte burada

Kod: Tümünü seç

procedure TForm1.OzelMesajGeldi(strOzelMesaj: String);
var
  gelenText: String;
begin
  
  //Gelen değeri değişkene aktar
  gelenText := strOzelMesaj;

 //Yeni bir form oluştur
  FormOlustur;
end;

evet işte form oluturmak için çağrıda bulunan metod'da yukarıdaki sorunu kısaca özetlersem söyle; Serverdan mesaj geliyor gelen mesaj TForm1.OzelMesajGeldi procedurüne geliyor ve bende bu procedure içinden formOlustur procedurunu çağırarak ekranda yeni bir form oluşturmak istiyorum kodların hepsini koymadım kalabalık yapmasın diye ama gerekirse onlarıda eklerim.yardımlarınız için şimdiden saolun

[lazio]

Kod: Tümünü seç

  
  Form1 := TForm1.Create(Self);
  formadi:=formadi+1;
  Form1.Caption := 'Form'+IntToStr(formadi+1);
  Form1.Top := Form1.Top+pot;
  Form1.Left := Form1.Left+tele;
  Form1.AutoSize := True;
  Form1.AutoScroll := False;
  Form1.Height := 88;
  Form1.WindowState := wsNormal;
  Form1.Show;